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,1

Links

K. D. Bajpai, Table of n, a(n) for n = 1..5500

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

Cf. A188831, A184935.

Sequence in context: A216375 A157332 A332195 * A024072 A119549 A247593

Adjacent sequences: A229200 A229201 A229202 * A229204 A229205 A229206

Keyword

nonn

Author

K. D. Bajpai, Sep 15 2013

Status

approved