%I #14 Dec 21 2022 12:53:26
%S 0,0,10,0,1100,10,100,0,111000,1100,1011101000,10,100111011000,100,
%T 1000,0,11110000,111000,110101111001010000,1100,110000,1011101000,
%U 10110010000,10,10100011110101110000,100111011000,100101111011010000
%N First digit-cycle of binary expansion of 1/n. Any initial 0's are to be placed at end of cycle.
%H Andrey Zabolotskiy, <a href="/A104013/b104013.txt">Table of n, a(n) for n = 1..1018</a>
%e 1/5 = 0.00110011001100... in binary, so a(5) = 1100.
%t f[n_] := If[IntegerQ@ Log2@ n, 0, FromDigits[ RealDigits[1/n, 2][[1, 1]]]]; Array[f, 27] (* _Robert G. Wilson v_, Sep 01 2015 *)
%Y Cf. A007733, A036275, A104014.
%K base,nonn
%O 1,3
%A Bryan Jacobs (bryanjj(AT)gmail.com), Feb 25 2005
|