A099988 Bisection of lucky numbers, A000959.
1, 7, 13, 21, 31, 37, 49, 63, 69, 75, 87, 99, 111, 127, 133, 141, 159, 169, 189, 195, 205, 219, 231, 237, 259, 267, 283, 289, 303, 319, 327, 339, 357, 367, 391, 399, 415, 427, 433, 463, 477, 487, 495, 517, 529, 537, 553, 577, 583, 601, 615, 621, 639, 645, 655
Offset: 1
Crossrefs
Cf. A099989.
Programs
-
Mathematica
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 *)
Extensions
More terms from Robert G. Wilson v, May 12 2006
Comments