login
A323547
n-th digit in the base-2 expansion of 1/n.
2
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
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.
Sequence in context: A353474 A065202 A374100 * A294930 A353472 A359475
KEYWORD
nonn,base,easy
AUTHOR
Derek J. Graves, Jan 17 2019, on behalf of Joseph A. Stocke
STATUS
approved