OFFSET
1,2
REFERENCES
Alfred S. Posamentier & Ingmar Lehmann, A Biography of the World's Most Mysterious Number, Prometheus Books, Amherst, NY 2004, page 129.
LINKS
Kanada Laboratory, Statistical Distribution Information.
Eric Weisstein's World of Mathematics, Pi Digits
MATHEMATICA
$MaxPrecision = 1100000; dp = Drop[ RealDigits[Pi, 10, 1000010] [[1]], 1]; Table[ Count[ Take[dp, 10^n], 4], {n, 6}]
Module[{pid=RealDigits[Pi, 10, 10^7][[1]], ac}, ac=Accumulate[If[#==4, 1, 0]&/@pid]; Table[ac[[10^n]], {n, 7}]] (* Generates the first 7 terms of the sequence. *) (* Harvey P. Dale, Jan 07 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Oct 11 2004
STATUS
approved