login
A054714
Number of powers of 14 modulo n.
15
1, 2, 2, 3, 2, 3, 2, 4, 6, 3, 5, 4, 1, 2, 2, 5, 16, 7, 18, 4, 3, 6, 22, 5, 10, 2, 18, 3, 28, 3, 15, 6, 10, 17, 3, 8, 12, 19, 2, 5, 8, 3, 21, 7, 6, 23, 23, 6, 3, 11, 16, 3, 52, 19, 10, 4, 18, 29, 58, 4, 6, 16, 7, 7, 2, 11, 11, 18, 22, 3, 10, 9, 72, 13, 10, 20, 6, 3, 26, 6, 54, 9, 82, 4, 16
OFFSET
1,2
LINKS
MATHEMATICA
a[n_] := Module[{e = IntegerExponent[n, {2, 7}]}, Max[e] + MultiplicativeOrder[14, n/Times @@ ({2, 7}^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), A054712 (12), A054713 (13), A054715 (15), A054716 (16).
Sequence in context: A336311 A339874 A134740 * A369032 A235922 A255598
KEYWORD
easy,nonn
AUTHOR
Henry Bottomley, Apr 20 2000
STATUS
approved