A268731 Period of the decimal expansion of 1/h(n) where h(n) is the length of the finite sequence {n, f(n), f(f(n)),...,1} in the Collatz (or 3n + 1) problem.

1, 6, 1, 1, 1, 1, 1, 18, 1, 6, 1, 1, 16, 16, 1, 1, 1, 1, 6, 6, 1, 1, 1, 22, 1, 3, 1, 1, 1, 13, 1, 6, 6, 6, 6, 6, 6, 16, 1, 108, 1, 28, 1, 1, 1, 6, 2, 1, 1, 1, 2, 2, 6, 6, 18, 1, 18, 1, 18, 18, 53, 53, 1, 3, 3, 3, 6, 6, 6, 16, 2, 22, 2, 6, 2, 2, 6, 6, 1, 2, 2, 2

Offset

2,2

Comments

a(n) = A007732(A006577(n)).

Links

Michel Lagneau, Table of n, a(n) for n = 2..9999

Example

a(3) = 6 because A007732(A006577(3)) = A007732(7) = 6.

Mathematica

f[n_]:=Module[{a=n, k=0}, While[a!=1, k++; If[EvenQ[a], a=a/2, a=a*3+1]]; k]; Table[r = f[n]/2^IntegerExponent[f[n], 2]/5^IntegerExponent[f[n], 5]; MultiplicativeOrder[10, r], {n, 2, 100}]

Crossrefs

Cf. A006577, A007732.

Sequence in context: A373703 A167155 A369465 * A080219 A339747 A293901

Adjacent sequences: A268728 A268729 A268730 * A268732 A268733 A268734

Keyword

nonn,base

Author

Michel Lagneau, Feb 12 2016

Status

approved