login
First digit-cycle of binary expansion of 1/n. Any initial 0's are to be placed at end of cycle.
2

%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