OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 2607 is a term since both 10100010111110120120220233404122002310413505735162607 and
26073516505710413200234041222023310120120101000101111 are prime.
MATHEMATICA
Select[Range[250000], AllTrue[{FromDigits[Flatten[Table[IntegerDigits[#, b], {b, 2, 10}]]], FromDigits[ Flatten[Table[IntegerDigits[#, b], {b, 10, 2, -1}]]]}, PrimeQ]&] (* Harvey P. Dale, May 28 2023 *)
PROG
(Python)
from gmpy2 import digits, is_prime
def ok(n): return is_prime(int("".join(digits(n, b) for b in list(range(2, 11))))) and is_prime(int("".join(digits(n, b) for b in list(range(10, 1, -1)))))
print([k for k in range(234567) if ok(k)]) # Michael S. Branicky, May 28 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Feb 15 2000
EXTENSIONS
Offset changed to 1 and a(33) and beyond from Michael S. Branicky, May 28 2023
STATUS
approved