A154276 Primes of the form 81*k^2 - 72*k + 17.

17, 197, 30977, 52901, 80657, 215297, 287297, 414737, 462401, 512657, 739601, 902501, 972197, 1008017, 1196837, 1401857, 1623077, 2496401, 2611457, 3422501, 3763601, 4343057, 4494401, 4726277, 4884101, 5456897, 5541317, 6330257

Offset: 1

Author

Vincenzo Librandi, Jan 06 2009

Keywords

• nonn
• easy

Comments

Primes in A154277.

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A154277.

Programs

Magma

[a: n in [0..350] | IsPrime(a) where a is 81*n^2-72*n+17]; // Vincenzo Librandi, Jul 16 2012

Maple

a := proc (n) if isprime(81*n^2-72*n+17) = true then 81*n^2-72*n+17 else end if end proc: seq(a(n), n = 0 .. 300); # Emeric Deutsch, Jan 20 2009

Mathematica

lst={};Do[If[PrimeQ[p=81*n^2-72*n+17],AppendTo[lst,p]],{n,0,7!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 11 2009 *)
Select[Table[81*n^2-72*n+17,{n,0,2000}],PrimeQ] (* Vincenzo Librandi, Jul 16 2012 *)

Extensions

Extended by Emeric Deutsch, Jan 20 2009