|
%I #7 Aug 30 2016 18:51:14
%S 11,223,233,443,557,661,277,881,199,10103,11113,112121,13313,14143,
%T 115151,116167,11717,18181,19219,20201,21121,22229,12323,24247,25253,
%U 26261,22727,28283,29129,30307,23131,32321,23333,134341,35353,136361
%N Smallest prime p with at least two non-overlapping occurrences of n in decimal representation of p.
%C A062584(n) <= a(n).
%H Harvey P. Dale, <a href="/A103611/b103611.txt">Table of n, a(n) for n = 1..100</a>
%t 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 *)
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Mar 24 2005
|
