A060981 Primes of the form 4k^2 - 152k + 1487 + (6k - 114)*(-1)^k.

1373, 1447, 1097, 1163, 853, 911, 641, 691, 461, 503, 313, 347, 197, 223, 113, 131, 61, 71, 41, 43, 53, 47, 97, 83, 173, 151, 281, 251, 421, 383, 593, 547, 797, 743, 1033, 971, 1301, 1231, 1601, 1523, 1933, 1847, 2297, 2203, 2693, 2591, 3121, 3011, 3581

Offset: 1

Author

Tito Piezas III, May 11 2001

Keywords

• nonn
• easy

Comments

Generates distinct values, the first 61 of which (i.e., those corresponding to k = 0..60) are primes.

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A005846.

Programs

Mathematica

lst={};Do[p=4*n^2-152*n+1487+(6*n-114)*(-1)^n;If[PrimeQ[p],AppendTo[lst,p]],{n,0,5!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 28 2009 *)
Select[Table[4n^2-152n+1487+(6n-114)(-1)^n,{n,0,50}],PrimeQ] (* Harvey P. Dale, Sep 15 2011 *)

PARI

{ n=0; for (m=0, 10000, p=4*m^2 - 152*m + 1487 + (6*m - 114)*(-1)^m; if (isprime(p), write("b060981.txt", n++, " ", p); if (n==1000, break)); ) } \\ Harry J. Smith, Jul 15 2009