A054716 Number of powers of 16 modulo n.

1, 2, 1, 2, 1, 2, 3, 2, 3, 2, 5, 2, 3, 4, 1, 2, 2, 4, 9, 2, 3, 6, 11, 2, 5, 4, 9, 4, 7, 2, 5, 3, 5, 3, 3, 4, 9, 10, 3, 2, 5, 4, 7, 6, 3, 12, 23, 2, 21, 6, 2, 4, 13, 10, 5, 4, 9, 8, 29, 2, 15, 6, 3, 3, 3, 6, 33, 3, 11, 4, 35, 4, 9, 10, 5, 10, 15, 4, 39, 2, 27, 6, 41, 4, 2, 8, 7, 6, 11, 4, 3, 12, 5, 24

Offset: 1

Author

Henry Bottomley, Apr 20 2000

Keywords

• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

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), A054714 (14), A054715 (15).

Programs

Mathematica

a[n_] := IntegerExponent[8*n, 16] + MultiplicativeOrder[16, n/2^IntegerExponent[n, 2]]; Array[a, 100] (* Amiram Eldar, Aug 25 2024 *)