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,1

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

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 *)

Prog

(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

Crossrefs

Cf. A005846.

Sequence in context: A139414 A155925 A329917 * A140125 A179915 A168167

Adjacent sequences: A060978 A060979 A060980 * A060982 A060983 A060984

Keyword

nonn,easy

Author

Tito Piezas III, May 11 2001

Status

approved