%I #17 Jul 31 2019 21:12:57

%S 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,

%T 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,

%U 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

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

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

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

%Y Column 2 of A322392.

%Y Cf. A061480, A323591, A323592.

%K nonn,base,easy

%O 1

%A _Derek J. Graves_, Jan 17 2019, on behalf of _Joseph A. Stocke_