OFFSET
1,1
LINKS
Vincenzo Librandi and T. D. Noe, Table of n, a(n) for n = 1..1000
EXAMPLE
For n=4, a(1)=10657; n=10, a(5)=65521.
MATHEMATICA
lst={}; Do[p=648*n^2+72*n+1; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 5*5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 27 2009 *)
Select[Table[648n^2+72n+1, {n, 100}], PrimeQ] (* Harvey P. Dale, Jul 27 2011 *)
PROG
(Magma) [ a: n in [0..350] | IsPrime(a) where a is 648*n^2+72*n+1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Jan 11 2009
STATUS
approved