login
A144571
Primes of the form 81n^2 - 90n + 26.
4
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
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 A373856 A222905
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 06 2009
EXTENSIONS
a(1) corrected by Jon E. Schoenfield, Jun 17 2010
STATUS
approved