This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A032606 Lucky numbers indexed by prime numbers. 5
 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; text; internal format)
 OFFSET 1,1 LINKS 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]] (* Robert G. Wilson v, May 12 2006 *) PROG (Perl) use ntheory ":all"; say "\$_ ", nth_lucky(nth_prime(\$_)) for 1..20'; # Dana Jacobsen, Dec 21 2018 (Perl) use ntheory ":all"; my \$ln=lucky_numbers(1e4); unshift @\$ln, 0; my @a032606 = vecextract(\$ln, primes(\$ln->[-1])); # Dana Jacobsen, Dec 21 2018 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, May 15 1998 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 21 08:47 EDT 2019. Contains 328292 sequences. (Running on oeis4.)