A174832 a(n) is (the number of ones) - (the number of zeros) in the first n bits of the binary expansion of Pi-3.

-1, -2, -1, -2, -3, -2, -3, -4, -5, -6, -5, -4, -3, -2, -1, 0, -1, 0, 1, 0, 1, 0, 1, 0, 1, 0, -1, -2, -1, -2, -3, -4, -3, -4, -5, -6, -7, -6, -7, -6, -5, -6, -5, -6, -7, -8, -7, -6, -7, -8, -9, -10, -9, -10, -11, -12, -11, -10, -11, -10, -11, -12, -11, -10, -11

Offset

1,2

Links

T. D. Noe, Table of n, a(n) for n = 1..10000

Mathematica

d=Drop[RealDigits[Pi, 2, 10002][[1]], 2]; s=0; Table[If[d[[i]] == 0, s--, s++]; s, {i, Length[d]}]

Crossrefs

Cf. A004601, A178980 (where zeros occur in this sequence).

Sequence in context: A171729 A356999 A127255 * A076827 A165477 A318687

Adjacent sequences: A174829 A174830 A174831 * A174833 A174834 A174835

Keyword

sign,base

Author

T. D. Noe, Jan 12 2011

Status

approved