A007734 Period of repeating digits of 1/n in base 3.

1, 1, 1, 2, 4, 1, 6, 2, 1, 4, 5, 2, 3, 6, 4, 4, 16, 1, 18, 4, 6, 5, 11, 2, 20, 3, 1, 6, 28, 4, 30, 8, 5, 16, 12, 2, 18, 18, 3, 4, 8, 6, 42, 10, 4, 11, 23, 4, 42, 20, 16, 6, 52, 1, 20, 6, 18, 28, 29, 4, 10, 30, 6, 16, 12, 5, 22, 16, 11, 12, 35, 2, 12, 18, 20, 18, 30, 3, 78, 4, 1, 8, 41, 6, 16, 42

Offset: 1

Author

N. J. A. Sloane, Hal Sampson (hals(AT)easynet.com)

Keywords

• nonn
• base

Links

• T. D. Noe, Table of n, a(n) for n=1..1000
• Index entries for sequences related to decimal expansion of 1/n

Programs

Mathematica

f[n_] := MultiplicativeOrder[3, n/(3^IntegerExponent[n, 3])]; Array[f, 80] (* Robert G. Wilson v, Jun 10 2011 *)

PARI

a(n)=znorder(Mod(3,n/3^valuation(n,3))) \\ Charles R Greathouse IV, Jun 10 2011

Extensions

More terms from David W. Wilson