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 A193552 #26 Jun 02 2025 04:14:54 %S A193552 4007,6007,9007,10007,12007,13007,16007,24007,36007,45007,61007,64007, %T A193552 78007,82007,88007,90007,94007,97007,103007,108007,121007,123007, %U A193552 135007,138007,142007,145007,151007,156007,157007,162007,169007,171007,174007 %N A193552 Prime numbers ending in James Bond number ''007''. %C A193552 Of this sequence, Wells (2005) wrote: "Sloane's On-Line Encyclopedia of Integer Sequences declines to include it, naturally," giving it as an example of "sink[ing] even lower" than the iccanobiF primes. - _Alonso del Arte_, Mar 07 2012 %D A193552 David Wells, Prime Numbers: The Most Mysterious Figures in Math. Hoboken, New Jersey: John Wiley & Sons (2005): 228. %H A193552 Charles R Greathouse IV, <a href="/A193552/b193552.txt">Table of n, a(n) for n = 1..10000</a> %F A193552 Primes of the form 1000n + 7 with n >= 1. %p A193552 select(isprime, [1000*i+7$i=1..200])[]; # _Alois P. Heinz_, Feb 03 2023 %t A193552 Select[Range[1007, 200007, 1000], PrimeQ] (* _Alonso del Arte_, Mar 07 2012 *) %o A193552 (PARI) forstep(n=1007,1e6,1000,if(isprime(n),print1(n", "))) \\ _Charles R Greathouse IV_, Mar 07 2012 %o A193552 (Python) %o A193552 from sympy import isprime %o A193552 from itertools import count, islice %o A193552 def agen(): yield from (t for t in count(1007, 1000) if isprime(t)) %o A193552 print(list(islice(agen(), 33))) # _Michael S. Branicky_, Feb 03 2023 %K A193552 nonn,easy,base %O A193552 1,1 %A A193552 _Kausthub Gudipati_, Jul 30 2011 %E A193552 Corrected and extended by _Charles R Greathouse IV_, Jul 30 2011