login
A154276
Primes of the form 81*k^2 - 72*k + 17.
4
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
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
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 06 2009
EXTENSIONS
Extended by Emeric Deutsch, Jan 20 2009
STATUS
approved