%I #22 Sep 08 2022 08:45:03
%S 2,11,29,47,83,101,137,173,191,227,263,281,317,353,389,443,461,479,
%T 569,587,641,659,677,821,839,857,911,929,947,983,1019,1091,1109,1163,
%U 1181,1217,1289,1307,1361,1433,1451,1487,1523,1559,1613,1667,1721,1811,1847
%N Prime numbers == 2 (mod 9).
%C A010888(a(n)) = 2. - _Reinhard Zumkeller_, Feb 25 2005
%C Except for the first term "2", all current prime numbers are of the form: 18*n-7. - _Vladimir Joseph Stephan Orlovsky_, Jul 13 2011
%H Daniel Starodubtsev, <a href="/A061238/b061238.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[ Range[ 2000 ], PrimeQ[ # ] && Mod[ #, 9 ] == 2 & ]
%t Join[{2}, Select[Range[11, 5000, 18], PrimeQ]] (* _Vladimir Joseph Stephan Orlovsky_, Jul 13 2011 *) (* ~30 times faster *)
%o (Magma)[ p: p in PrimesUpTo(2000) | p mod 9 in {2} ]; // _Vincenzo Librandi_, Dec 25 2010
%o (PARI) select(n->n%9==2, primes(400)) \\ _Charles R Greathouse IV_, May 27 2014
%Y Cf. A061237..A061242.
%K nonn,easy
%O 1,1
%A _Amarnath Murthy_, Apr 23 2001
%E More terms from _Robert G. Wilson v_, May 10 2001
|