OFFSET
1,1
LINKS
Jon E. Schoenfield, Table of n, a(n) for n = 1..15185 (all terms < 10^38; terms 1..200 from T. D. Noe, 201..2385 from Chai Wah Wu)
EXAMPLE
a(3) = 100111001 because 100111001 is the third palindromic prime composed only of 1's and 0's.
MATHEMATICA
PalQ[n_]:=FromDigits[Reverse@IntegerDigits[n]]==n; DeleteDuplicates[Flatten[Table[Select[FromDigits /@ Tuples[{0, 1}, n], PrimeQ[#]&&PalQ[#] &], {n, 15}]]] (* Jayanta Basu, May 11 2013 *)
Select[FromDigits/@Tuples[{0, 1}, 15], PalindromeQ[#]&&PrimeQ[#]&] (* Harvey P. Dale, Jan 18 2023 *)
PROG
(Python)
from sympy import isprime
A100580_list = [11]
for i in range(2, 2**16):
....s = format(i, 'b')
....x = int(s+s[-2::-1])
....if isprime(x):
........A100580_list.append(x) # Chai Wah Wu, Jan 06 2015
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Chuck Seggelin (seqfan(AT)plastereddragon.com), Nov 29 2004
STATUS
approved