OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10000
EXAMPLE
6 is in the list because prime(6)^3 + 6 = 13^3 + 6 = 2197 + 6 = 2203, which is prime.
24 is in the list because prime (24)^3 + 24 = 89^3 + 24 = 704969 + 24 = 704993, which is prime.
MAPLE
select(n -> isprime(ithprime(n)^3 + n), [seq(n, n=1..2000)]);
MATHEMATICA
Select[Range[2000], PrimeQ[Prime[#]^3 + #] &]
PROG
(PARI) for(n = 1, 2000, if(isprime(prime(n)^3 + n), print1(n, ", ")));
(Magma) [n : n in [1..2000] | IsPrime(NthPrime(n)^3 +n)];
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Sep 02 2015
STATUS
approved