|
| |
|
|
A032606
|
|
Lucky numbers indexed by prime numbers.
|
|
2
| |
|
|
3, 7, 13, 21, 37, 49, 69, 75, 99, 133, 141, 189, 205, 219, 237, 283, 319, 327, 367, 399, 415, 463, 487, 529, 583, 615, 621, 645, 655, 693, 801, 831, 885, 897, 979, 991, 1023, 1087, 1105, 1167, 1203, 1219, 1285, 1303, 1339, 1365, 1471, 1563
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| lst = Range[1, 2000, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; lst[[Prime@ Range@51]] (from Robert G. Wilson v (rgwv(at)rgwv.com), May 12 2006)
|
|
|
CROSSREFS
| Cf. A032605, A000959.
Sequence in context: A174030 A098575 A138035 * A098482 A147432 A018367
Adjacent sequences: A032603 A032604 A032605 * A032607 A032608 A032609
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com), May 15, 1998.
|
| |
|
|
