This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A132240 #20 Sep 08 2022 08:45:31 %S A132240 29,31,59,61,89,149,151,179,181,211,239,241,269,271,331,359,389,419, %T A132240 421,449,479,509,541,569,571,599,601,631,659,661,691,719,751,809,811, %U A132240 839,929,991,1019,1021,1049,1051,1109,1171,1201,1229,1231 %N A132240 Primes congruent to {1, 29} mod 30. %C A132240 For every prime p here, the cyclotomic polynomial Phi(15p,x) is flat. %C A132240 Primes in A175887. [_Reinhard Zumkeller_, Jan 07 2012] %H A132240 Reinhard Zumkeller, <a href="/A132240/b132240.txt">Table of n, a(n) for n = 1..10000</a> %H A132240 C. K. Caldwell, <a href="http://primes.utm.edu">The Prime Pages</a>. %H A132240 Omar E. Pol, <a href="http://www.polprimos.com">Determinacion geometrica de los numeros primos y perfectos</a>. %t A132240 Select[Prime[Range[1000]],MemberQ[{1,29},Mod[#,30]]&] (* _Vincenzo Librandi_, Aug 14 2012 *) %t A132240 Select[Flatten[#+{1,29}&/@(30Range[0,50])],PrimeQ] (* _Harvey P. Dale_, Sep 08 2021 *) %o A132240 (Haskell) %o A132240 a132240 n = a132240_list !! (n-1) %o A132240 a132240_list = [x | x <- a175887_list, a010051 x == 1] %o A132240 -- _Reinhard Zumkeller_, Jan 07 2012 %o A132240 (Magma) [ p: p in PrimesUpTo(1300) | p mod 30 in {1, 29} ]; // _Vincenzo Librandi_, Aug 14 2012 %Y A132240 Cf. A000040, A001097, A001359, A006512, A039949, A057204, A068228, A087715, A129805, A117223, A010051. %K A132240 easy,nonn %O A132240 1,1 %A A132240 _Omar E. Pol_, Aug 15 2007