A086997 Number of 1's in binary representation of n-th decimal digit in expansion of e.

1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 0, 1, 2, 1, 2, 2, 2, 2, 0, 1, 1, 3, 1, 3, 1, 2, 2, 1, 2, 2, 1, 1, 2, 3, 3, 2, 3, 1, 1, 3, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 1, 2, 2, 2, 2, 2, 3, 2, 1, 3, 3, 1, 1, 0, 3, 2, 2, 2, 0, 2, 2, 2, 2, 1, 3, 2, 2, 1, 2, 3, 1, 2, 1, 1, 1, 3, 1, 2, 1, 2, 1, 2, 2, 1, 1, 3, 1, 1, 3, 1, 2

Offset

1,2

Links

Table of n, a(n) for n=1..105.

Mathematica

Module[{d=#[[1]]->#[[2]]&/@Table[{n, Count[IntegerDigits[n, 2], 1]}, {n, 0, 9}]}, RealDigits[E, 10, 120][[1]]/.d] (* Harvey P. Dale, Apr 28 2018 *)

Crossrefs

Cf. A001113, A086996.

Sequence in context: A030559 A030558 A030557 * A074298 A356097 A356096

Adjacent sequences: A086994 A086995 A086996 * A086998 A086999 A087000

Keyword

nonn,base

Author

Cino Hilliard, Sep 23 2003

Extensions

More terms from Ray Chandler, Sep 29 2003

Status

approved