|
|
A229203
|
|
Primes of the form k^3 - prime(k).
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(2)=971: 10^3-prime(10)= 1000-29= 971 which is prime.
|
|
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]
|
|
PROG
|
(PARI) for(k=1, 10^3, if(ispseudoprime(KD=eval((k^3-prime(k)))), print1(KD", ")));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|