Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A160229
Write Pi-3 in binary and report the number of ones in the first 10^n decimal places.
2
2, 40, 488, 4985, 50077, 499721, 5002607, 5000079
OFFSET
1,1
FORMULA
A160228(n)+A160229(n)=A011557(n) for n=1...
MATHEMATICA
f[n_] := Count[ RealDigits[Pi - 3, 2, 10^n - 2][[1]], 1] + 2; Do[ Print[{n, f@n}], {n, 8}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, May 04 2009
STATUS
approved