|
| |
|
|
A154276
|
|
Primes of the form 81*n^2 - 72*n + 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
