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!)
A168168 Palindromic primes with d digits which have more than 3*d/2 distinct primes as substrings, for any d > 0. 2
373, 11311, 17971, 37273, 37573, 39293, 71317, 93739, 97379, 1193911, 1317131, 1371731, 1793971, 3166613, 3319133, 3337333, 3479743, 3716173, 3722273, 3763673, 3769673, 3774773, 3792973, 3793973, 3799973, 3916193, 7118117 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

The prime itself and its prime digits are counted among the prime substrings.

LINKS

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

C. Caldwell, G.L. Honaker (Editors), Prime curios!: 13151715131, by M. F. Hasler, Nov. 2009.

EXAMPLE

The prime 13151715131 is in the sequence since it is palindromic, of length 11, and contains the following 17 > 11*3/2 distinct primes as substrings: 3, 5, 7, 13, 17, 31, 71, 131, 151, 5171, 7151, 13151, 15131, 31517, 517151, 1315171513 and 13151715131.

PROG

(PARI) prime_substrings(p) = { p=Vec(Str(p)); select( x->isprime(x), vecsort( concat( vector( #p, i, vector( i, j, eval( concat( vecextract( p, Str(j".."i))))))), 8))} /* Note: In PARI version 2.4.2 (dvt CHANGES-1.1971), the syntax is select(L, f) instead of select(f, L). */

{forprime( p=2, default(primelimit), p==eval(concat(vecextract(Vec(Str(p)), "-1..1")))|next; #prime_substrings(p) > #Str(p)*3\2 & print1(p", "))}

CROSSREFS

Sequence in context: A213300 A219444 A134161 * A226850 A208834 A171216

Adjacent sequences:  A168165 A168166 A168167 * A168169 A168170 A168171

KEYWORD

base,nonn

AUTHOR

M. F. Hasler, Nov 23 2009

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 August 2 01:19 EDT 2021. Contains 346408 sequences. (Running on oeis4.)