[go: up one dir, main page]

login
A007734
Period of repeating digits of 1/n in base 3.
13
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,4
MATHEMATICA
f[n_] := MultiplicativeOrder[3, n/(3^IntegerExponent[n, 3])]; Array[f, 80] (* Robert G. Wilson v, Jun 10 2011 *)
PROG
(PARI) a(n)=znorder(Mod(3, n/3^valuation(n, 3))) \\ Charles R Greathouse IV, Jun 10 2011
CROSSREFS
Sequence in context: A307796 A095247 A376121 * A171233 A362004 A096907
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Hal Sampson (hals(AT)easynet.com)
EXTENSIONS
More terms from David W. Wilson
STATUS
approved