login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 21 18:30 EDT 2020. Contains 337919 sequences. (Running on oeis4.)