OFFSET
1,2
MATHEMATICA
s={1}; Do[If[FreeQ[s, n/2]&&FreeQ[s, n/3]&&FreeQ[s, n/4], AppendTo[s, n]], {n, 2, 150}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 06 2006
STATUS
approved