A071783 - OEIS

%I #11 Dec 15 2017 17:35:55

%S 101,10301,10501,10601,16061,30103,30203,30403,30703,30803,31013,

%T 35053,38083,70207,70507,70607,73037,74047,90709,91019,94049,1003001,

%U 1008001,1022201,1028201,1035301,1043401,1055501,1062601,1065601,1074701

%N Palindromic primes with at least one zero digit.

%C All terms have an odd number of digits. - _Robert Israel_, Jun 14 2017

%H Robert Israel, <a href="/A071783/b071783.txt">Table of n, a(n) for n = 1..10000</a>

%p revdigs:= proc(n) local L;

%p L:= convert(n,base,10);

%p add(L[-i-1]*10^i,i=0..nops(L)-1)

%p end proc:

%p F:= proc(d) local L;

%p    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)];

%p    op(select(t -> has(convert(t,base,10),0) and isprime(t), L))

%p end proc:

%p seq(F(d),d=3..7,2); # _Robert Israel_, Jun 14 2017

%t Select[Prime[Range[100000]],DigitCount[#,10,0]>0&&#==IntegerReverse[#]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 29 2017 *)

%Y Cf. A002385.

%K base,nonn

%O 1,1

%A _Jason Earls_, Jun 05 2002