OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
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
KEYWORD
nonn
AUTHOR
Patrick De Geest, May 15 1998
STATUS
approved