A280043 Solutions to the congruence 1^n+2^n+...+n^n == 43 (mod n).

1, 2, 6, 42, 43, 86, 258, 77658

Offset: 1

Author

N. J. A. Sloane, Dec 29 2016

Keywords

• nonn
• fini
• full

Links

• M. A. Alekseyev, J. M. Grau, A. M. Oller-Marcen. Computing solutions to the congruence 1^n + 2^n + ... + n^n == p (mod n). Discrete Applied Mathematics, 2018. doi:10.1016/j.dam.2018.05.022 arXiv:1602.02407 [math.NT]

Programs

Mathematica

f[n_] := Mod[Sum[PowerMod[k, n, n], {k, 1, n}] - 43, n];
For[n = 1, n < 80000, n++, If[f[n] == 0, Print[n]]] (* Jean-François Alcover, Sep 06 2018 *)