OFFSET
1,5
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
MAPLE
with(StringTools): lim:=100: s:="": for j from 1 to lim do s:=cat(s, convert(ithprime(j), string)): printf("%d, ", nops([SearchAll(s[j], s)])); od: # Nathaniel Johnston, May 28 2011
CROSSREFS
KEYWORD
nonn,easy,base,less
AUTHOR
Juri-Stepan Gerasimov, May 28 2011
EXTENSIONS
Corrected and extended by Nathaniel Johnston, May 28 2011
STATUS
approved