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,4

Links

T. D. Noe, Table of n, a(n) for n=1..1000

Index entries for sequences related to decimal expansion of 1/n

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: A078886 A307796 A095247 * A171233 A362004 A096907

Adjacent sequences: A007731 A007732 A007733 * A007735 A007736 A007737

Keyword

nonn,base

Author

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

Extensions

More terms from David W. Wilson

Status

approved