A132240 Primes congruent to {1, 29} mod 30.

29, 31, 59, 61, 89, 149, 151, 179, 181, 211, 239, 241, 269, 271, 331, 359, 389, 419, 421, 449, 479, 509, 541, 569, 571, 599, 601, 631, 659, 661, 691, 719, 751, 809, 811, 839, 929, 991, 1019, 1021, 1049, 1051, 1109, 1171, 1201, 1229, 1231

Offset: 1

Author

Omar E. Pol, Aug 15 2007

Keywords

• easy
• nonn

Comments

For every prime p here, the cyclotomic polynomial Phi(15p,x) is flat.

Primes in A175887. [Reinhard Zumkeller, Jan 07 2012]

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• C. K. Caldwell, The Prime Pages.
• Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.

Crossrefs

Cf. A000040, A001097, A001359, A006512, A039949, A057204, A068228, A087715, A129805, A117223, A010051.

Programs

Haskell

a132240 n = a132240_list !! (n-1)
a132240_list = [x | x <- a175887_list, a010051 x == 1]
-- Reinhard Zumkeller, Jan 07 2012

Magma

[ p: p in PrimesUpTo(1300) | p mod 30 in {1, 29} ]; // Vincenzo Librandi, Aug 14 2012

Mathematica

Select[Prime[Range[1000]],MemberQ[{1,29},Mod[#,30]]&] (* Vincenzo Librandi, Aug 14 2012 *)
Select[Flatten[#+{1,29}&/@(30Range[0,50])],PrimeQ] (* Harvey P. Dale, Sep 08 2021 *)