A341410 a(n) = (Sum_{k=1..4} k^n) mod n.

0, 0, 1, 2, 0, 0, 3, 2, 1, 0, 10, 6, 10, 2, 10, 2, 10, 12, 10, 14, 16, 8, 10, 18, 0, 4, 1, 18, 10, 0, 10, 2, 1, 30, 5, 30, 10, 30, 22, 34, 10, 18, 10, 2, 10, 30, 10, 18, 31, 0, 49, 42, 10, 30, 35, 2, 43, 30, 10, 54, 10, 30, 37, 2, 0, 6, 10, 14, 31, 60, 10, 66, 10, 30

Offset

1,4

Links

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Formula

a(n) = A001551(n) mod n.

a(A056643(n)) = 0.

Maple

a:= n-> add(i&^n, i=1..4) mod n:
seq(a(n), n=1..100);  # Alois P. Heinz, Feb 11 2021

Mathematica

a[n_] := Mod[Sum[k^n, {k, 1, 4}], n]; Array[a, 100] (* Amiram Eldar, Feb 11 2021 *)

Prog

(PARI) a(n) = sum(k=1, 4, k^n)%n;

Crossrefs

(Sum_{k=1..m} k^n) mod n: A096196 (m=2), A341409 (m=3), this sequence (m=4), A341411 (m=5), A341412 (m=6), A341413 (m=7).

Cf. A001551, A056643.

Sequence in context: A330463 A142886 A099026 * A205341 A195664 A053202

Adjacent sequences: A341407 A341408 A341409 * A341411 A341412 A341413

Keyword

nonn,easy

Author

Seiichi Manyama, Feb 11 2021

Status

approved