%I #26 Sep 08 2022 08:44:50
%S 3,6,12,18,24,36,48,54,60,66,90,96,108,132,138,156,162,174,186,192,
%T 204,216,222,228,240,246,270,306,318,330,360,366,384,390,408,438,450,
%U 468,474,480,492,498,522,570,576,582,606,612,618,624,636,642,660,678,708
%N Numbers k such that k^2 - 7 is prime.
%H Edward Jiang, <a href="/A028882/b028882.txt">Table of n, a(n) for n = 1..1000</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/consemor.htm">Palindromic Quasipronics of the form n(n+x)</a>
%t f[n_]:=PrimeQ[n^2-7]; lst={}; Do[If[f[n],AppendTo[lst,n]],{n,3,7!,1}]; lst (* _Vladimir Joseph Stephan Orlovsky_, Aug 12 2009 *)
%t Select[Range[3,800],PrimeQ[#^2-7]&] (* _Harvey P. Dale_, Jul 21 2013 *)
%o (Magma) [n: n in [3..1000] |IsPrime(n^2-7)] // _Vincenzo Librandi_, Nov 18 2010
%o (PARI) for(n=3,1000,if(isprime(n^2-7),print1(n,","))) \\ _Edward Jiang_, Aug 06 2014
%K nonn
%O 1,1
%A _Patrick De Geest_
|