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

Author

Giovanni Teofilatto, Dec 27 2003

Keywords

• nonn
• easy

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

Crossrefs

Cf. A089373 (corresponding k).

Programs

Magma

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

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

Formula

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

Extensions

More terms from David Wasserman, Sep 15 2005