|
%I #23 Sep 08 2022 08:45:17
%S 0,6,8,20,24,38,50,56,68,78,86,90,96,104,108,114,134,138,140,146,150,
%T 164,174,180,206,216,218,224,234,240,246,258,276,288,296,314,320,336,
%U 338,348,350,356,378,380,404,414,420,426,450,474,476,510,524,530,540
%N Numbers n such that 97*n + 11 is prime.
%H Daniel Starodubtsev, <a href="/A105775/b105775.txt">Table of n, a(n) for n = 1..10000</a>
%e If n=0, then 97*n + 11 = 11 (prime).
%e If n=108, then 97*n + 11 = 10487 (prime).
%t For[n = 0, n < 450, n++, If[PrimeQ[97*n + 11], Print[n]]] (* _Stefan Steinerberger_, Feb 18 2006 *)
%o (Magma) [n: n in [0..600] | IsPrime(97*n+11)]; // _Vincenzo Librandi_, Nov 13 2010
%o (PARI) is(n)=isprime(97*n+11) \\ _Charles R Greathouse IV_, Jun 06 2017
%K nonn,easy
%O 1,2
%A _Parthasarathy Nambi_, May 04 2005
%E More terms from _Stefan Steinerberger_, Feb 18 2006
|
