A089376 Primes of the form k^2 - 7*k + 7.

7, 37, 67, 127, 151, 337, 457, 547, 751, 1051, 1117, 1327, 1801, 2251, 2347, 2647, 2857, 3187, 3301, 4027, 5107, 6637, 6967, 7477, 8737, 9697, 10501, 11551, 13567, 17551, 21751, 23251, 23557, 25117, 28051, 28387, 30097, 31147, 33301, 35527

Offset

1,1

References

M. Cerasoli, F. Eugeni and M. Protasi, Elementi di Matematica Discreta, Bologna, 1988.

Emanuele Munarini and Norma Zagaglia Salvi, Matematica Discreta, UTET, CittaStudiEdizioni, Milano, 1997.

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..5000

Formula

a(n) = A089373(n)^2 - 7*A089373(n) + 7. - David Wasserman, Sep 15 2005

Maple

select(isprime, [k^2-7*k+7$k=1..250]); # Muniru A Asiru, Nov 24 2018

Mathematica

Select[Table[n^2-7n+7, {n, 6, 1000}], PrimeQ] (* Vincenzo Librandi, Dec 12 2011 *)

Prog

(Magma) [a: n in [6..200] | IsPrime(a) where a is n^2 - 7*n + 7]; // Vincenzo Librandi, Dec 12 2011

Crossrefs

Cf. A089373 (corresponding k).

Sequence in context: A289353 A221982 A104915 * A337423 A031395 A138906

Adjacent sequences: A089373 A089374 A089375 * A089377 A089378 A089379

Keyword

nonn,easy

Author

Giovanni Teofilatto, Dec 27 2003

Extensions

More terms from David Wasserman, Sep 15 2005

Status

approved