A119360 a(n) = Sum_{k=1..n} (k! mod n).

0, 1, 3, 5, 8, 3, 19, 9, 18, 13, 44, 9, 74, 33, 18, 25, 114, 27, 160, 13, 33, 77, 204, 9, 113, 165, 90, 61, 335, 33, 497, 89, 165, 233, 68, 45, 707, 293, 165, 33, 864, 75, 875, 165, 63, 457, 1098, 57, 292, 163, 318, 269, 1125, 117, 143, 89, 426, 567, 1561, 33, 2034, 931

Offset

1,3

Links

Table of n, a(n) for n=1..62.

Formula

a(n) = A086330(n) + 1 for n >= 2. - Amiram Eldar, Nov 25 2025

Maple

P:=proc(n) local i, j, k; for j from 1 by 1 to n do k:=0; for i from 1 by 1 to n do k:=k+(i! mod j); od; print(k); od; end: P(200);

Mathematica

a[n_] := Sum[Mod[k!, n], {k, 1, n}]; Array[a, 100] (* Amiram Eldar, Nov 25 2025 *)

Crossrefs

Cf. A086330.

Sequence in context: A087334 A175628 A387574 * A021283 A212224 A020864

Adjacent sequences: A119357 A119358 A119359 * A119361 A119362 A119363

Keyword

easy,nonn

Author

Paolo P. Lava and Giorgio Balzarotti, Jul 24 2006

Extensions

Name and offset corrected by Amiram Eldar, Nov 25 2025

Status

approved