|
| |
|
|
A099989
|
|
Bisection of lucky numbers, A000959.
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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 (rgwv(at)rgwv.com), May 12 2006
|
|
|
CROSSREFS
| Cf. A099988.
Sequence in context: A058972 A026222 A192720 * A085046 A138495 A055927
Adjacent sequences: A099986 A099987 A099988 * A099990 A099991 A099992
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Nov 20 2004
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(at)rgwv.com), May 12 2006
|
| |
|
|
