A054712 Number of powers of 12 modulo n.

1, 2, 2, 2, 4, 2, 6, 3, 3, 5, 1, 2, 2, 7, 5, 3, 16, 3, 6, 5, 7, 2, 11, 3, 20, 3, 4, 7, 4, 5, 30, 4, 2, 17, 12, 3, 9, 7, 3, 6, 40, 7, 42, 2, 6, 12, 23, 3, 42, 21, 17, 3, 52, 4, 4, 8, 7, 5, 29, 5, 15, 31, 8, 4, 4, 2, 66, 17, 12, 13, 35, 3, 36, 10, 21, 7, 6, 3, 26, 6, 5, 41, 41, 7, 16, 43, 5, 3, 8

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

Cf. A054703 (base 2), A054704 (3), A054705 (4), A054706 (5), A054707 (6), A054708 (7), A054709 (8), A054717 (9), A054710 (10), A351524 (11), A054713 (13), A054714 (14), A054715 (15), A054716 (16).

Sequence in context: A186749 A133265 A298076 * A345067 A066243 A366606

Adjacent sequences: A054709 A054710 A054711 * A054713 A054714 A054715

Keyword

easy,nonn

Author

Henry Bottomley, Apr 20 2000

Status

approved