login
A054713
Number of powers of 13 modulo n.
15
1, 1, 1, 1, 4, 1, 2, 2, 3, 4, 10, 1, 2, 2, 4, 4, 4, 3, 18, 4, 2, 10, 11, 2, 20, 2, 9, 2, 14, 4, 30, 8, 10, 4, 4, 3, 36, 18, 2, 4, 40, 2, 21, 10, 12, 11, 46, 4, 14, 20, 4, 2, 13, 9, 20, 2, 18, 14, 58, 4, 3, 30, 6, 16, 5, 10, 66, 4, 11, 4, 70, 6, 72, 36, 20, 18, 10, 2, 39, 4, 27, 40, 82, 2, 4
OFFSET
1,5
LINKS
MATHEMATICA
a[n_] := Module[{e = IntegerExponent[n, 13]}, e + MultiplicativeOrder[13, n/13^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), A054714 (14), A054715 (15), A054716 (16).
Sequence in context: A322906 A106437 A279605 * A371853 A213884 A117021
KEYWORD
easy,nonn
AUTHOR
Henry Bottomley, Apr 20 2000
STATUS
approved