|
%I #41 Jun 30 2019 10:15:38
%S 0,0,0,0,1,0,2,0,0,1,10,0,12,2,1,0,16,0,9,1,2,10,11,0,5,12,0,2,14,1,6,
%T 0,10,16,2,0,4,9,12,1,40,2,3,10,1,11,23,0,14,5,16,12,26,0,10,2,9,14,
%U 58,1,60,6,2,0,12,10,33,16,11,2,35,0,36,4,5,9,10,12,78,1,0,40,82,2,16
%N Period of the senary (base-6) representation of 1/n, or 0 if 1/n terminates.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Senary">Senary</a>
%e a(7)=2, because 1/7 has senary period 2 (0.0505050505...).
%t f[n_] := Length[ RealDigits[1/n, 6][[1, -1]]]; Array[f, 85] (* _Robert G. Wilson v_, Jan 09 2015 *)
%Y Cf. A051626 (base 10), A246004 (base 12).
%Y With ones instead of zeros: A007737, A066799 (all bases as columns).
%K nonn,base,easy
%O 1,7
%A _Michal Kaczmarczyk_, Dec 03 2014
%E More terms from _Robert G. Wilson v_, Jan 09 2015
|
