

A211686


Prime numbers > 10000 such that all the substrings of length >= 4 are primes (substrings with leading '0' are considered to be nonprime).


1



11093, 11171, 11933, 12011, 12239, 12377, 12791, 12917, 13037, 13217, 13613, 14519, 14591, 14813, 14831, 15233, 15791, 16073, 16091, 16217, 16673, 16691, 17333, 17417, 17477, 18233, 18311, 18713, 18719, 18731, 19013, 19319, 19739, 19973, 21319
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Only numbers > 10000 are considered, since all 4digit primes are trivial members.
By definition, each term of the sequence with more than 5 digits is built up by an overlapped union of previous terms, i.e., a(254)=182339 has the two embedded previous terms a(26)=18233 and a(208)=82339.
The sequence is finite, the last term is 934919 (n=263). Proof of finiteness: Let p be a number with more than 6 digits. By the argument above, each 6digit substring must be a previous term. The only 6digit terms are 182339, 349199, 432713, 487793, 511933, 654799, 782339, 787793, 917333, 934919 (n=254..263, see bfile). As can be directly verified, none of them can be extended to a 7digit number with the desired property.


LINKS



EXAMPLE

a(1)=11093, since all substrings of length >= 4 are primes (1109, 1093, and 11093).
a(263)=934919, all substrings of length >= 4 (9349, 3491, 4919, 93491, 34919 and 934919) are primes.


MATHEMATICA

sspQ[n_]:=Module[{idn=IntegerDigits[n], s1, s2}, s1=FromDigits[Most[idn]]; s2=FromDigits[Rest[idn]]; IntegerLength[s1]==IntegerLength[s2]==4 && AllTrue[{s1, s2}, PrimeQ]]; Select[Prime[Range[1230, 9592]], sspQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* The program generates all 253 fivedigit terms of the sequence *)(* Harvey P. Dale, May 11 2018 *)


CROSSREFS



KEYWORD

nonn,fini,base


AUTHOR



STATUS

approved



