OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
read transforms; pal:=[]; for n from 0 to 8000 do if digrev(n) = n then pal:=[op(pal), n]; fi; od:
t0:=[]; u0:=[]; for n from 1 to nops(pal) do m:=pal[n]; p0:="10"; p1:="01"; t1:=cat(p0, m, p1); t1:=convert(t1, decimal, 10); if isprime(t1) then t0:=[op(t0), m]; u0:=[op(u0), t1]; fi; od: t0; # u0 gives A099746.
MATHEMATICA
p = Select[ Range[ 22322], # == FromDigits[ Reverse[ IntegerDigits[ # ]]] &]; Select[p, PrimeQ[ FromDigits[ Join[{1, 0}, IntegerDigits[ # ], {0, 1}]]] &] (* Robert G. Wilson v, Nov 20 2004 *)
Select[Range[23000], PalindromeQ[#]&&PrimeQ[FromDigits[Join[{1, 0}, IntegerDigits[ #], {0, 1}]]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 26 2021 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
N. J. A. Sloane, Nov 19 2004
EXTENSIONS
More terms from Robert G. Wilson v, Nov 19 2004
STATUS
approved