A323547 n-th digit in the base-2 expansion of 1/n.

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1

Offset

1

Links

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

Example

a(12) = 1, as the 12th digit in the base-2 expansion of 1/12 = 0.0001010101010101010101010101... is 1.

Mathematica

a = {}; Do[a = Append[a, Mod[ Floor[1/n * 2^n], 2] ], {n,  1, 100} ]; a

Crossrefs

Column 2 of A322392.

Cf. A061480, A323591, A323592.

Sequence in context: A179801 A353474 A065202 * A294930 A353472 A359475

Adjacent sequences: A323544 A323545 A323546 * A323548 A323549 A323550

Keyword

nonn,base,easy

Author

Derek J. Graves, Jan 17 2019, on behalf of Joseph A. Stocke

Status

approved