OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
MATHEMATICA
Select[Table[7n^2+10, {n, 0, 1000}], PrimeQ]
Select[7*Range[1, 999, 2]^2+10, PrimeQ] (* Harvey P. Dale, May 09 2022 *)
PROG
(Magma) [a: n in [0..400] | IsPrime(a) where a is 7*n^2+10];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Dec 03 2011
STATUS
approved