A099989 Bisection of lucky numbers, A000959.

3, 9, 15, 25, 33, 43, 51, 67, 73, 79, 93, 105, 115, 129, 135, 151, 163, 171, 193, 201, 211, 223, 235, 241, 261, 273, 285, 297, 307, 321, 331, 349, 361, 385, 393, 409, 421, 429, 451, 475, 483, 489, 511, 519, 535, 541, 559, 579, 591, 613, 619, 631, 643, 651, 673

Offset

1,1

Links

Table of n, a(n) for n=1..55.

Mathematica

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 *)

Crossrefs

Cf. A099988.

Sequence in context: A026222 A192720 A357167 * A209980 A085046 A138495

Adjacent sequences: A099986 A099987 A099988 * A099990 A099991 A099992

Keyword

nonn,easy

Author

N. J. A. Sloane, Nov 20 2004

Extensions

More terms from Robert G. Wilson v, May 12 2006

Status

approved