%I #10 Mar 06 2024 04:49:46
%S 3,9,15,25,33,43,51,67,73,79,93,105,115,129,135,151,163,171,193,201,
%T 211,223,235,241,261,273,285,297,307,321,331,349,361,385,393,409,421,
%U 429,451,475,483,489,511,519,535,541,559,579,591,613,619,631,643,651,673
%N Bisection of lucky numbers, A000959.
%t lst = Range[1, 684, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Take[lst, {2, Length@lst, 2}] (* _Robert G. Wilson v_, May 12 2006 *)
%Y Cf. A099988.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Nov 20 2004
%E More terms from _Robert G. Wilson v_, May 12 2006