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!)
A076613 Palindromic primes with nonprime middle digit. 0
101, 181, 191, 313, 383, 787, 797, 919, 10601, 11411, 12421, 12821, 13831, 13931, 15451, 16061, 16661, 17471, 17971, 18181, 18481, 19891, 19991, 30103, 30403, 30803, 31013, 32423, 34843, 35053, 35153, 38083, 38183, 70607, 71917, 73037 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..36.

EXAMPLE

a(12)=12821 is palindromic prime and its middle digit 8 is not prime, a(13)=13831 is palindromic prime and its middle digit 8 is not prime, a(14)=13931 is palindromic prime and its middle digit 9 is not prime, ...

MAPLE

ts_num_midpal := proc(n) local ad, adr, midigit; ad := convert(n, base, 10): adr := ListTools[Reverse](ad): if nops(ad) mod 2 = 0 then return 1; fi; midigit := op( (nops(ad)+1)/2, ad ): if (isprime( midigit )='false' and adr=ad) then return 0; else return 1; fi end: ts_pra_n_pal := proc(n) local p1; p1 := ithprime(n): if ts_num_midpal(p1) = 0 then return (p1) fi end: apranpal := [seq(ts_pra_n_pal(i), i=1..100000)]: apranpal;

CROSSREFS

Cf. A002385, A069217.

Sequence in context: A067860 A140037 A107209 * A045978 A325071 A238671

Adjacent sequences:  A076610 A076611 A076612 * A076614 A076615 A076616

KEYWORD

easy,nonn,base

AUTHOR

Jani Melik, Oct 21 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 28 17:39 EDT 2021. Contains 348329 sequences. (Running on oeis4.)