login
A071783
Palindromic primes with at least one zero digit.
1
101, 10301, 10501, 10601, 16061, 30103, 30203, 30403, 30703, 30803, 31013, 35053, 38083, 70207, 70507, 70607, 73037, 74047, 90709, 91019, 94049, 1003001, 1008001, 1022201, 1028201, 1035301, 1043401, 1055501, 1062601, 1065601, 1074701
OFFSET
1,1
COMMENTS
All terms have an odd number of digits. - Robert Israel, Jun 14 2017
LINKS
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
Cf. A002385.
Sequence in context: A172162 A096884 A055474 * A082808 A100027 A097727
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jun 05 2002
STATUS
approved