OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..7000
EXAMPLE
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.
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]
PROG
(PARI) s=[]; for(k=1, 1000, n=prime(k)^3+k; if(isprime(n), s=concat(s, n))); s \\ Colin Barker, Mar 26 2014
(Magma) [q: k in [1..1000] | IsPrime(q) where q is NthPrime(k)^3+k]; // Bruno Berselli, Mar 26 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Mar 26 2014
STATUS
approved