m37={1, 2, 5, 6, 12, 14, 15, 17, 21, 31} m171={1, 4, 17, 19, 20, 25, 27, 28, 38, 40, 41, 43, 47, 64, 68, 70, 71, 73, 83, 84, 86, 91, 92, 94, 107, 110} best4={1,2,4,5} best1024=Take[ Flatten[Table[best4[[i]]*171*37+m171[[j]]*37+m37[[k]]-172*37, {i,1,4},{j,1,26},{k,1,10}]] ,1024] fractal={0,1} Do[fractal=Union[3*fractal,3*fractal+1],{i,1,9}] fractal+=1