OFFSET
1,1
EXAMPLE
MATHEMATICA
FL=Flatten[IntegerDigits/@Prime[Range[1000]]]; Le=Length@FL; re=Reap[Do[a=FL[[k1]];
Do[If[FL[[k2]]==a, Sow[{k1, k2-k1, k2}]; Break[]], {k2, k1+1, Le}], {k1, 200}]][[2, 1]]; #[[2]]&/@re
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 26 2010
STATUS
approved