A144571 Primes of the form 81n^2 - 90n + 26.

17, 1601, 8837, 16901, 33857, 65537, 160001, 190097, 240101, 295937, 401957, 577601, 1136357, 1336337, 1378277, 1464101, 1552517, 1833317, 2464901, 2755601, 3519377, 3587237, 3865157, 4227137, 4301477, 5410277, 5664401, 6100901

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

Cf. A154295.

Sequence in context: A061686 A133590 A227887 * A242228 A222905 A071826

Adjacent sequences: A144568 A144569 A144570 * A144572 A144573 A144574

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 06 2009

Extensions

a(1) corrected by Jon E. Schoenfield, Jun 17 2010

Status

approved