A239743 Primes of the form prime(k)^3 + k.
29, 347, 2203, 704993, 2248123, 2685653, 3442987, 81182821, 86938393, 95444081, 230346509, 1064332433, 1298596753, 1829276767, 2202074113, 3449796071, 4306879141, 6740558659, 8205739219, 9649993009, 11650768499, 14225261327, 15124198183, 19968681493, 21415471837
Offset: 1
Keywords
Examples
29 is in the sequence because prime(2)^3 + 2 = 29, which is prime. 347 is in the sequence because prime(4)^3 + 4 = 347, which is prime.
Links
- K. D. Bajpai, Table of n, a(n) for n = 1..7000
Crossrefs
Programs
-
Magma
[q: k in [1..1000] | IsPrime(q) where q is NthPrime(k)^3+k]; // Bruno Berselli, Mar 26 2014
-
Maple
KD := proc() local a,b; a:= ithprime(n); b:=a^3+n; if isprime(b) then RETURN (b); fi; end: seq(KD(), n=1..1000);
-
Mathematica
Select[Table[Prime[k]^3 + k, {k, 1000}], PrimeQ] -
PARI
s=[]; for(k=1, 1000, n=prime(k)^3+k; if(isprime(n), s=concat(s, n))); s \\ Colin Barker, Mar 26 2014