A032605 Prime numbers indexed by lucky numbers.

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

Amiram Eldar, Table of n, a(n) for n = 1..10000

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

Cf. A000040, A000959, A032606.

Sequence in context: A069689 A307479 A106021 * A099243 A176247 A158721

Adjacent sequences: A032602 A032603 A032604 * A032606 A032607 A032608

Keyword

nonn

Author

Patrick De Geest, May 15 1998

Status

approved