A145096 Primes of the form 4*k^2 - 38*k + 131.

131, 97, 71, 53, 43, 41, 47, 61, 83, 113, 151, 197, 251, 313, 383, 461, 547, 641, 743, 853, 971, 1097, 1231, 1373, 1523, 1847, 2203, 2393, 2591, 2797, 3011, 3463, 3701, 3947, 4201, 4463, 4733, 5011, 5297, 5591, 6203, 6521, 7523, 7873, 8231, 8597, 8971

Offset

1,1

Links

Muniru A Asiru, Table of n, a(n) for n = 1..1000

Maple

for k from 0 to 100 do if isprime(4*k^2 - 38*k + 131) then print(4*k^2 - 38*k + 131); fi; od; # Muniru A Asiru, Jan 23 2018

Mathematica

Select[Table[4n^2-38n+131, {n, 0, 60}], PrimeQ] (* Harvey P. Dale, Jun 10 2013 *)

Prog

(Magma) [ a: n in [0..900] | IsPrime(a) where a is 4*n^2-38*n+131] // Vincenzo Librandi, Nov 25 2010
(GAP) o := [];; for k in [0..100] do if IsPrime(4*k^2 - 38*k + 131) then Add(o, 4*k^2 - 38*k + 131); fi; od; o; # Muniru A Asiru, Jan 23 2018

Crossrefs

Sequence in context: A001331 A291620 A356374 * A210498 A050671 A095317

Adjacent sequences: A145093 A145094 A145095 * A145097 A145098 A145099

Keyword

nonn

Author

Bobby Kramer (panthar1(AT)gmail.com), Oct 01 2008, Oct 02 2008

Extensions

More terms from Vincenzo Librandi, Apr 28 2010

Status

approved