|
| |
|
|
A099988
|
|
Bisection of lucky numbers, A000959.
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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 (rgwv(at)rgwv.com), May 12 2006
|
|
|
CROSSREFS
| Cf. A099989.
Sequence in context: A157971 A135275 A013652 * A076947 A124192 A034102
Adjacent sequences: A099985 A099986 A099987 * A099989 A099990 A099991
|
|
|
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
|
| |
|
|
