OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := Max[IntegerExponent[2*n, 4], IntegerExponent[n, 3]] + Module[{e = IntegerExponent[n, {2, 3}]}, MultiplicativeOrder[12, n/Times @@ ({2, 3}^e)]]; Array[a, 100] (* Amiram Eldar, Aug 25 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Henry Bottomley, Apr 20 2000
STATUS
approved