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 A386240 #36 Jul 22 2025 12:31:34
%S A386240 4007,6007,9007,10007,10079,12007,13007,16007,20071,24007,30071,36007,
%T A386240 45007,50077,60077,61007,64007,70079,78007,80071,80077,82007,88007,
%U A386240 90007,90071,90073,94007,97007,100703,100733,100741,100747,100769,100787,100799,103007,108007
%N A386240 Primes containing the digit string "007" in their decimal representation.
%C A386240 Could also be called "James Bond" primes.
%H A386240 Alois P. Heinz, <a href="/A386240/b386240.txt">Table of n, a(n) for n = 1..36628</a>
%H A386240 Karl-Heinz Hofmann, <a href="/A386240/a386240.txt">Ascii search picture</a>. Who can find the first 5 terms?
%H A386240 Q-branch staff, <a href="https://www.thejamesbonddossier.com/features/the-origin-of-james-bond.htm">The origin of James Bond: unveiling the history behind 007</a>, 21 February 2024.
%H A386240 Reddit, <a href="https://www.reddit.com/r/JamesBond/comments/8s3vn4/we_never_saw_daniel_craigs_bond_in_his_prime/">We never saw Daniel Craig's Bond in his prime</a>
%H A386240 Joe Roberts, <a href="https://screenrant.com/james-bond-007-origin-meaning-changes-explained/">How James Bond Became 007 (& How Its Meaning Has Changed)</a>, Jul 7, 2020.
%H A386240 Joe Roberts, <a href="https://www.slashfilm.com/1795892/james-bond-codename-007-origin-canceled-movie/">How Did James Bond Get The Codename 007? A Canceled Movie Almost Gave Us The Answer</a>, Feb 24, 2025.
%p A386240 q:= n-> isprime(n) and searchtext("007", ""||n)>0:
%p A386240 select(q, [$1..110000])[]; # _Alois P. Heinz_, Jul 17 2025
%t A386240 Select[Prime[Range[553, 12000]], StringContainsQ[IntegerString[#], "007"] &] (* _Paolo Xausa_, Jul 17 2025 *)
%o A386240 (Python)
%o A386240 from sympy import sieve
%o A386240 print([sieve[n] for n in range(1,10200) if "007" in str(sieve[n])]) # _Karl-Heinz Hofmann_, Jul 17 2025
%o A386240 (PARI) is(n) = if(!isprime(n), return(0)); while(n > 10, if(n%1000==7, return(1)); n\=10); 0 \\ _David A. Corneth_, Jul 17 2025
%Y A386240 Cf. A386247, A166580, A167282, A193552.
%K A386240 nonn,base,dumb,less
%O A386240 1,1
%A A386240 _Hugo Pfoertner_, Jul 16 2025