|
|
A103611
|
|
Smallest prime p with at least two non-overlapping occurrences of n in decimal representation of p.
|
|
1
|
|
|
11, 223, 233, 443, 557, 661, 277, 881, 199, 10103, 11113, 112121, 13313, 14143, 115151, 116167, 11717, 18181, 19219, 20201, 21121, 22229, 12323, 24247, 25253, 26261, 22727, 28283, 29129, 30307, 23131, 32321, 23333, 134341, 35353, 136361
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{prs=Prime[Range[15000]]}, Table[SelectFirst[prs, SequenceCount[ IntegerDigits[ #], IntegerDigits[n]]>1&], {n, 40}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 30 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|