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 A132231 #46 Sep 08 2022 08:45:31 %S A132231 7,37,67,97,127,157,277,307,337,367,397,457,487,547,577,607,727,757, %T A132231 787,877,907,937,967,997,1087,1117,1237,1297,1327,1447,1567,1597,1627, %U A132231 1657,1747,1777,1867,1987,2017,2137,2287,2347,2377,2437,2467,2557,2617,2647 %N A132231 Primes congruent to 7 (mod 30). %C A132231 Primes ending in 7 with (SOD-1)/3 integer where SOD is sum of digits. - _Ki Punches_, Feb 07 2009 %C A132231 Intersection of A030432 and A002476. - _Ray Chandler_, Apr 07 2009 %C A132231 Only from 4927 on, there are more composite numbers than primes in {7+30k}, see A227869. - _M. F. Hasler_, Nov 02 2013 %C A132231 Terms are non-twin primes A007510, except for 7. - _Jonathan Sondow_, Oct 27 2017 %H A132231 Reinhard Zumkeller, <a href="/A132231/b132231.txt">Table of n, a(n) for n = 1..1000</a> %H A132231 C. K. Caldwell, <a href="http://primes.utm.edu">The Prime Pages</a> %H A132231 Omar E. Pol, <a href="http://www.polprimos.com/imagenes/cribade30columnas.jpg">Prime numbers in a sieve with 30 columns</a> %H A132231 Omar E. Pol, <a href="http://www.polprimos.com">Sobre el patrón de los números primos</a> %F A132231 a(n) = A158573(n)*30 + 7. - _Ray Chandler_, Apr 07 2009 %F A132231 a(n) = A211890(4,n-1) for n <= 5. - _Reinhard Zumkeller_, Jul 13 2012 %t A132231 Select[30*Range[0,100]+7,PrimeQ] (* _Harvey P. Dale_, Feb 01 2012 *) %t A132231 Select[Prime[Range[1000]],MemberQ[{7},Mod[#,30]]&] (* _Vincenzo Librandi_, Aug 14 2012 *) %o A132231 (Haskell) %o A132231 a132231 n = a132231_list !! (n-1) %o A132231 a132231_list = [x | k <- [0..], let x = 30 * k + 7, a010051' x == 1] %o A132231 -- _Reinhard Zumkeller_, Jul 13 2012 %o A132231 (Magma) [p: p in PrimesUpTo(3000) | p mod 30 eq 7 ]; // _Vincenzo Librandi_, Aug 14 2012 %o A132231 (PARI) forstep(p=7,1999,30,isprime(p)&&print1(p",")) \\ _M. F. Hasler_, Nov 02 2013 %Y A132231 Cf. A007510, A007528, A010051, A068229, A117047, A129807, A039949, A132230-A132236, A214360. %K A132231 nonn,easy %O A132231 1,1 %A A132231 _Omar E. Pol_, Aug 15 2007 %E A132231 Extended by _Ray Chandler_, Apr 07 2009