OFFSET
1,1
COMMENTS
First 20 terms are the same as that of A030665.
LINKS
MATHEMATICA
a = {}; Do[AppendTo[a, Function[d, FromDigits@ SelectFirst[ IntegerDigits@ Prime@ Range[PrimePi@ Max@ a + 1, 10^4], And[Length@ # >= Length@ d, Take[#, Length@ d] == d] &]][IntegerDigits@ n]], {n, 47}]; a (* Michael De Vlieger, May 24 2016, Version 10 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 08 2002
EXTENSIONS
Corrected and extended by Ray Chandler, Aug 11 2003
STATUS
approved