|
%I #17 Sep 08 2022 08:45:31
%S 29,59,89,149,179,239,269,359,389,419,449,479,509,569,599,659,719,809,
%T 839,929,1019,1049,1109,1229,1259,1289,1319,1409,1439,1499,1559,1619,
%U 1709,1889,1949,1979,2039,2069,2099,2129,2309,2339,2399,2459,2549,2579
%N Primes congruent to 29 (mod 30).
%C Primes ending in 9 with (SOD-1)/3 non-integer where SOD is sum of digits. - _Ki Punches_
%H Vincenzo Librandi, <a href="/A132236/b132236.txt">Table of n, a(n) for n = 1..1000</a>
%H C. K. Caldwell, <a href="http://primes.utm.edu">The Prime Pages</a>.
%H Omar E. Pol, <a href="http://www.polprimos.com">Determinacion geometrica de los numeros primos y perfectos</a>.
%F a(n) = A158850(n)*30 + 29. - Chandler
%F Intersection of A030433 and A007528. - Chandler
%t Select[Prime[Range[400]],Mod[#,30]==29&] (* _Harvey P. Dale_, Dec 25 2011 *)
%t Select[Prime[Range[1000]],MemberQ[{29},Mod[#,30]]&] (* _Vincenzo Librandi_, Aug 14 2012 *)
%o (Magma) [p: p in PrimesUpTo(3000) | p mod 30 eq 29 ]; // _Vincenzo Librandi_, Aug 14 2012
%o (PARI) is(n)=isprime(n) && n%30==29 \\ _Charles R Greathouse IV_, Jul 01 2016
%Y Cf. A000040, A039949, A132230-A132235.
%K nonn,easy
%O 1,1
%A _Omar E. Pol_, Aug 15 2007
%E Extended by _Ray Chandler_, Apr 07 2009
|
