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,1

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.

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 *)

Prog

(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

Crossrefs

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

Sequence in context: A104071 A288616 A273547 * A132243 A125523 A156976

Adjacent sequences: A132237 A132238 A132239 * A132241 A132242 A132243

Keyword

easy,nonn

Author

Omar E. Pol, Aug 15 2007

Status

approved