OFFSET
1,1
COMMENTS
All terms have an odd number of digits. - Robert Israel, Jun 14 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
revdigs:= proc(n) local L;
L:= convert(n, base, 10);
add(L[-i-1]*10^i, i=0..nops(L)-1)
end proc:
F:= proc(d) local L;
L:= [seq(seq(x*10^((d+1)/2)+y*10^((d-1)/2) + revdigs(x), y=0..9), x=10^((d-3)/2) .. 10^((d-1)/2)-1)];
op(select(t -> has(convert(t, base, 10), 0) and isprime(t), L))
end proc:
seq(F(d), d=3..7, 2); # Robert Israel, Jun 14 2017
MATHEMATICA
Select[Prime[Range[100000]], DigitCount[#, 10, 0]>0&&#==IntegerReverse[#]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 29 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jun 05 2002
STATUS
approved