OFFSET
0,1
COMMENTS
Digits 3,1,4,... are indexed 1,2,3,...
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
MATHEMATICA
e3cdQ[{a_, b_, c_, d_, e_}]:=a!=b&&d!=e&&b==c==d; Flatten[Position[ Partition[ RealDigits[Pi, 10, 7000][[1]], 5, 1], _?(e3cdQ)]]+1 (* Harvey P. Dale, Nov 09 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved