OFFSET
1,1
LINKS
Charles R Greathouse IV, Nov 16 2009, Table of n, a(n) for n = 1..10000
EXAMPLE
11=B 13=D 113=AD 131=BB
MATHEMATICA
Select[Prime@ Range[5000], Min[IntegerDigits[#, 16]] > 9 &] (* James C. McMahon, Jul 15 2025 *)
PROG
(PARI) mindigit(n, b) = if(n<b, n, min(mindigit(floor(n/b), b), n%b))
isA140969(n) = (isprime(n) && mindigit(n, 16) > 9) \\ Michael B. Porter, Dec 01 2009
(Python)
from sympy import isprime
from itertools import count, islice, product
def agen(): # generator of terms
yield from (t for d in count(1) for r in product("ABCDEF", repeat=d-1) for e in "BDF" if isprime(t:=int("".join(r)+e, 16)))
print(list(islice(agen(), 44))) # Michael S. Branicky, Aug 31 2025
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Gil Broussard, Jul 27 2008
EXTENSIONS
Edited by N. J. A. Sloane, Nov 15 2009
STATUS
approved
