|
%I #22 Nov 16 2019 10:30:14
%S 2,5,17,23,41,47,73,97,127,137,157,191,227,233,307,331,347,367,379,
%T 401,449,487,523,571,607,631,709,727,751,761,811,877,937,967,1009,
%U 1019,1129,1171,1187,1229,1259,1297,1367,1409,1453,1483,1489,1523
%N Prime numbers indexed by lucky numbers.
%H Amiram Eldar, <a href="/A032605/b032605.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A000040(A000959(n)). - _Amiram Eldar_, Nov 16 2019
%t 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 *)
%o (Perl) use ntheory ":all"; say "$_ ", nth_prime(nth_lucky($_)) for 1..20'; # _Dana Jacobsen_, Dec 21 2018
%Y Cf. A000040, A000959, A032606.
%K nonn
%O 1,1
%A _Patrick De Geest_, May 15 1998
|
