OFFSET
1,1
EXAMPLE
MATHEMATICA
Select[Range[350], PrimeQ[FromDigits[Flatten[IntegerDigits[Range[#, 1, -1], 2]]]] &] (* Amiram Eldar, Feb 19 2023 *)
PROG
(Python)
from sympy import isprime
from itertools import count, islice
def agen(): # generator of terms
s = ""
for k in count(1):
s = bin(k)[2:] + s
if isprime(int(s)): yield k
print(list(islice(agen(), 5))) # Michael S. Branicky, Feb 19 2023
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
N. J. A. Sloane, Feb 19 2023
EXTENSIONS
a(6) from Alois P. Heinz, Feb 19 2023
STATUS
approved