%I #14 Sep 08 2022 08:45:38
%S 131,97,71,53,43,41,47,61,83,113,151,197,251,313,383,461,547,641,743,
%T 853,971,1097,1231,1373,1523,1847,2203,2393,2591,2797,3011,3463,3701,
%U 3947,4201,4463,4733,5011,5297,5591,6203,6521,7523,7873,8231,8597,8971
%N Primes of the form 4*k^2 - 38*k + 131.
%H Muniru A Asiru, <a href="/A145096/b145096.txt">Table of n, a(n) for n = 1..1000</a>
%p 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
%t Select[Table[4n^2-38n+131,{n,0,60}],PrimeQ] (* _Harvey P. Dale_, Jun 10 2013 *)
%o (Magma) [ a: n in [0..900] | IsPrime(a) where a is 4*n^2-38*n+131] // _Vincenzo Librandi_, Nov 25 2010
%o (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
%K nonn
%O 1,1
%A Bobby Kramer (panthar1(AT)gmail.com), Oct 01 2008, Oct 02 2008
%E More terms from _Vincenzo Librandi_, Apr 28 2010