OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
d[i]=1&&d[i+1]=d[i-1]=0
MATHEMATICA
SequencePosition[RealDigits[Pi, 10, 33000][[1]], {0, 1, 0}][[All, 1]]+1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 31 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Apr 25 2005
STATUS
approved