OFFSET
1,1
COMMENTS
Could also be called "James Bond" primes.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..36628
Karl-Heinz Hofmann, Ascii search picture. Who can find the first 5 terms?
Q-branch staff, The origin of James Bond: unveiling the history behind 007, 21 February 2024.
Joe Roberts, How James Bond Became 007 (& How Its Meaning Has Changed), Jul 7, 2020.
Joe Roberts, How Did James Bond Get The Codename 007? A Canceled Movie Almost Gave Us The Answer, Feb 24, 2025.
MAPLE
q:= n-> isprime(n) and searchtext("007", ""||n)>0:
select(q, [$1..110000])[]; # Alois P. Heinz, Jul 17 2025
MATHEMATICA
Select[Prime[Range[553, 12000]], StringContainsQ[IntegerString[#], "007"] &] (* Paolo Xausa, Jul 17 2025 *)
PROG
(Python)
from sympy import sieve
print([sieve[n] for n in range(1, 10200) if "007" in str(sieve[n])]) # Karl-Heinz Hofmann, Jul 17 2025
(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
CROSSREFS
KEYWORD
nonn,base,dumb,less
AUTHOR
Hugo Pfoertner, Jul 16 2025
STATUS
approved
