1,4

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

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

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

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

Sequence in context: A094593 A327814 A188348 * A186520 A158570 A295224

Adjacent sequences: A007735 A007736 A007737 * A007739 A007740 A007741

nonn,base

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

approved