A103611 Smallest prime p with at least two non-overlapping occurrences of n in decimal representation of p.

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

Offset: 1

Author

Reinhard Zumkeller, Mar 24 2005

Keywords

• nonn
• base

Comments

A062584(n) <= a(n).

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..100

Programs

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 *)