A154276 Primes of the form 81*n^2 - 72*n + 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,1

Comments

Primes in A154277.

Links

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

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

Prog

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

Crossrefs

Cf. A154277.

Sequence in context: A177135 A130817 A055432 * A021379 A177075 A177076

Adjacent sequences: A154273 A154274 A154275 * A154277 A154278 A154279

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 06 2009

Extensions

Extended by Emeric Deutsch, Jan 20 2009

Status

approved