OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..2000
MATHEMATICA
lst={}; Do[If[PrimeQ[p=81*n^2-90*n+26], AppendTo[lst, p]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 11 2009 *)
Select[Table[81 n^2 - 90 n + 26, {n, 300}], PrimeQ] (* Vincenzo Librandi, Jan 02 2014 *)
PROG
(Magma) [a: n in [0..300] | IsPrime(a) where a is 81*n^2-90*n+26 ]; // Vincenzo Librandi, Jan 02 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 06 2009
EXTENSIONS
a(1) corrected by Jon E. Schoenfield, Jun 17 2010
STATUS
approved