A132240 - OEIS

%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