login
A032605
Prime numbers indexed by lucky numbers.
8
2, 5, 17, 23, 41, 47, 73, 97, 127, 137, 157, 191, 227, 233, 307, 331, 347, 367, 379, 401, 449, 487, 523, 571, 607, 631, 709, 727, 751, 761, 811, 877, 937, 967, 1009, 1019, 1129, 1171, 1187, 1229, 1259, 1297, 1367, 1409, 1453, 1483, 1489, 1523
OFFSET
1,1
LINKS
FORMULA
a(n) = A000040(A000959(n)). - Amiram Eldar, Nov 16 2019
MATHEMATICA
A032605 = Range[1, 275, 2]; i = 2; While[i <= (len = Length@A032605) && (k = A032605[[i]]) <= len, A032605 = Drop[A032605, {k, len, k}]; i++ ]; Prime /@ A032605 (* Robert G. Wilson v, May 12 2006 *)
PROG
(Perl) use ntheory ":all"; say "$_ ", nth_prime(nth_lucky($_)) for 1..20'; # Dana Jacobsen, Dec 21 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, May 15 1998
STATUS
approved