OFFSET
1,2
MATHEMATICA
$MaxPrecision = 1100000; ph = Drop[ RealDigits[Pi, 16, 5*10^5] [[1]], 1]; Table[ Count[ Take[ph, 10^n], 6], {n, 5}]
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Robert G. Wilson v, Oct 12 2004
STATUS
approved