|
%I #20 Sep 08 2022 08:45:31
%S 29,31,59,61,89,149,151,179,181,211,239,241,269,271,331,359,389,419,
%T 421,449,479,509,541,569,571,599,601,631,659,661,691,719,751,809,811,
%U 839,929,991,1019,1021,1049,1051,1109,1171,1201,1229,1231
%N Primes congruent to {1, 29} mod 30.
%C For every prime p here, the cyclotomic polynomial Phi(15p,x) is flat.
%C Primes in A175887. [_Reinhard Zumkeller_, Jan 07 2012]
%H Reinhard Zumkeller, <a href="/A132240/b132240.txt">Table of n, a(n) for n = 1..10000</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>.
%t Select[Prime[Range[1000]],MemberQ[{1,29},Mod[#,30]]&] (* _Vincenzo Librandi_, Aug 14 2012 *)
%t Select[Flatten[#+{1,29}&/@(30Range[0,50])],PrimeQ] (* _Harvey P. Dale_, Sep 08 2021 *)
%o (Haskell)
%o a132240 n = a132240_list !! (n-1)
%o a132240_list = [x | x <- a175887_list, a010051 x == 1]
%o -- _Reinhard Zumkeller_, Jan 07 2012
%o (Magma) [ p: p in PrimesUpTo(1300) | p mod 30 in {1, 29} ]; // _Vincenzo Librandi_, Aug 14 2012
%Y Cf. A000040, A001097, A001359, A006512, A039949, A057204, A068228, A087715, A129805, A117223, A010051.
%K easy,nonn
%O 1,1
%A _Omar E. Pol_, Aug 15 2007
|
