A341409 a(n) = (Sum_{k=1..3} k^n) mod n.

0, 0, 0, 2, 1, 2, 6, 2, 0, 4, 6, 2, 6, 0, 6, 2, 6, 2, 6, 18, 15, 14, 6, 2, 1, 14, 0, 14, 6, 14, 6, 2, 3, 14, 31, 2, 6, 14, 36, 18, 6, 38, 6, 10, 36, 14, 6, 2, 13, 24, 36, 46, 6, 2, 1, 42, 36, 14, 6, 38, 6, 14, 36, 2, 16, 2, 6, 30, 36, 14, 6, 2, 6, 14, 51, 22, 17, 14, 6, 18, 0, 14, 6, 38, 21

Offset

1,4

Links

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

Formula

a(n) = A001550(n) mod n.

a(A056645(n)) = 0.

Maple

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

Mathematica

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

Prog

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

Crossrefs

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

Cf. A001550, A045576, A056645, A220235.

Sequence in context: A265894 A133644 A265870 * A284466 A258615 A152431

Adjacent sequences: A341406 A341407 A341408 * A341410 A341411 A341412

Keyword

nonn,easy

Author

Seiichi Manyama, Feb 11 2021

Status

approved