OFFSET
1,4
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
MAPLE
a:= n-> add(i&^n, i=1..6) mod n:
seq(a(n), n=1..100); # Alois P. Heinz, Feb 11 2021
MATHEMATICA
a[n_] := Mod[Sum[k^n, {k, 1, 6}], n]; Array[a, 100] (* Amiram Eldar, Feb 11 2021 *)
Table[Mod[Total[Range[6]^n], n], {n, 100}] (* Harvey P. Dale, Dec 02 2023 *)
PROG
(PARI) a(n) = sum(k=1, 6, k^n)%n;
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Seiichi Manyama, Feb 11 2021
STATUS
approved