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
KEYWORD
nonn,base,easy
AUTHOR
Derek J. Graves, Jan 17 2019, on behalf of Joseph A. Stocke
STATUS
approved