OFFSET
1,1
COMMENTS
A062584(n) <= a(n).
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
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
Reinhard Zumkeller, Mar 24 2005
STATUS
approved