%I #2 Mar 30 2012 17:26:21
%S 1,5,6,7,8,9,11,13,17,19,23,25,29,30,31,35,37,40,41,42,43,45,47,48,49,
%T 53,54,55,56,59,61,63,64,65,66,67,71,72,73,77,78,79,81,83,85,88,89,91,
%U 95,97,99,101,102,103,104,107,109,113,114,115,117,119,121,125,127,131
%N If n appears then 2n, 3n and 4n do not.
%C A003159 If n appears then 2n does not. A036668 If n appears then 2n and 3n do not.
%t s={1};Do[If[FreeQ[s,n/2]&&FreeQ[s,n/3]&&FreeQ[s,n/4],AppendTo[s,n]],{n,2,150}];s
%Y Cf. A003159, A036668.
%K nonn
%O 1,2
%A _Zak Seidov_, Aug 06 2006
|