login
A365100
Number of distinct residues of x^n (mod n^3), x=0..n^3-1.
6
1, 3, 7, 6, 21, 8, 43, 18, 55, 22, 111, 20, 157, 44, 147, 65, 273, 56, 343, 30, 105, 112, 507, 68, 501, 158, 487, 110, 813, 88, 931, 257, 777, 274, 903, 140, 1333, 344, 371, 102, 1641, 64, 1807, 280, 1155, 508, 2163, 260, 2059, 502, 1911, 200, 2757, 488, 483, 374, 805, 814
OFFSET
1,2
PROG
(PARI) a(n) = #Set(vector(n^3, x, Mod(x-1, n^3)^n)); \\ Michel Marcus, Aug 22 2023
(Python)
def A365100(n): return len({pow(x, n, n**3) for x in range(n**3)}) # Chai Wah Wu, Aug 23 2023
KEYWORD
nonn
AUTHOR
Albert Mukovskiy, Aug 21 2023
STATUS
approved