|
|
A160229
|
|
Write Pi-3 in binary and report the number of ones in the first 10^n decimal places.
|
|
2
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|