Voozh

A071783

Palindromic primes with at least one zero digit.

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

(list; graph; refs; listen; history; text; internal format)

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

Cf. A002385.

Sequence in context: A172162 A096884 A055474 * A082808 A100027 A097727

Adjacent sequences: A071780 A071781 A071782 * A071784 A071785 A071786

KEYWORD

base,nonn

AUTHOR

Jason Earls, Jun 05 2002

STATUS

approved

URL: https://oeis.org/A071783

⇱ A071783 - OEIS