OFFSET
1,1
MATHEMATICA
f[n_] := Count[ RealDigits[Pi - 3, 2, 10^n - 2][[1]], 0] + 2; Do[ Print[{n, f@n}], {n, 8}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, May 04 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Mar 23 2010
STATUS
approved