OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..2000
MAPLE
A201185:=n->`if`(isprime(7*n^3+4), 7*n^3+4, NULL): seq(A201185(n), n=1..500); # Wesley Ivan Hurt, Apr 23 2017
MATHEMATICA
Select[Table[7n^3+4, {n, 0, 6000}], PrimeQ]
PROG
(Magma) [a: n in [0..400] | IsPrime(a) where a is 7*n^3+4]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Nov 29 2011
STATUS
approved