login
A028882
Numbers k such that k^2 - 7 is prime.
6
3, 6, 12, 18, 24, 36, 48, 54, 60, 66, 90, 96, 108, 132, 138, 156, 162, 174, 186, 192, 204, 216, 222, 228, 240, 246, 270, 306, 318, 330, 360, 366, 384, 390, 408, 438, 450, 468, 474, 480, 492, 498, 522, 570, 576, 582, 606, 612, 618, 624, 636, 642, 660, 678, 708
OFFSET
1,1
MATHEMATICA
Select[Range[3, 800], PrimeQ[#^2-7]&] (* Harvey P. Dale, Jul 21 2013 *)
PROG
(Magma) [n: n in [3..1000] |IsPrime(n^2-7)]; // Vincenzo Librandi, Nov 18 2010
(PARI) for(n=3, 1000, if(isprime(n^2-7), print1(n, ", "))) \\ Edward Jiang, Aug 06 2014
CROSSREFS
Sequence in context: A079830 A160744 A160738 * A154907 A273015 A242297
KEYWORD
nonn
STATUS
approved