login
Bisection of lucky numbers, A000959.
1

%I #10 Mar 06 2024 04:49:57

%S 1,7,13,21,31,37,49,63,69,75,87,99,111,127,133,141,159,169,189,195,

%T 205,219,231,237,259,267,283,289,303,319,327,339,357,367,391,399,415,

%U 427,433,463,477,487,495,517,529,537,553,577,583,601,615,621,639,645,655

%N Bisection of lucky numbers, A000959.

%t lst = Range[1, 678, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Take[lst, {1, Length@lst, 2}] (* _Robert G. Wilson v_, May 12 2006 *)

%Y Cf. A099989.

%K nonn,easy

%O 1,2

%A _N. J. A. Sloane_, Nov 20 2004

%E More terms from _Robert G. Wilson v_, May 12 2006