A229203 Primes of the form k^3 - prime(k).
5, 971, 54709, 73907, 84991, 124771, 287179, 404851, 511591, 728537, 4095059, 5638691, 6433747, 6857849, 10646627, 11238001, 11850913, 12811423, 13479779, 13822489, 14170957, 16775597, 17574343, 19681267, 20121901, 21950189, 26461619, 39999391, 49025423, 49833529
Offset: 1
Keywords
Examples
a(2)=971: 10^3-prime(10)= 1000-29= 971 which is prime.
Links
- K. D. Bajpai, Table of n, a(n) for n = 1..5500
Programs
-
Maple
KD:= proc() local a; a:= k^3-ithprime(k); if isprime(a) then RETURN(a): fi; end: seq(KD(),k=1..1000);
-
Mathematica
Select[Table[k^3-Prime[k],{k,1000}],PrimeQ] -
PARI
for(k=1, 10^3, if(ispseudoprime(KD=eval((k^3-prime(k)))), print1(KD", ")));