OFFSET
1,1
MATHEMATICA
nn=100; With[{pd=RealDigits[Pi, 10, 10nn][[1]]}, Flatten[Table[Select[ Flatten[ Position[pd, pd[[i]]]], #>i&, 1], {i, nn}]]] (* Harvey P. Dale, May 28 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 13 2004
STATUS
approved