%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