A226965 Numbers n such that 1^n + 2^n + 3^n +...+ n^n == 7 (mod n).
1, 2, 6, 7, 14, 294, 12642
Offset: 1
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]
Crossrefs
Programs
-
Mathematica
Select[Range[10000], Mod[Sum[PowerMod[i, #, #], {i, #}], #] == 7&]
-
PARI
is(n)=Mod(sumdiv(n, d, if(isprime(d+1), n/(d+1))), n)==-7 \\ Charles R Greathouse IV, Nov 13 2013
Extensions
Corrected and keywords full,fini added by Max Alekseyev, Aug 25 2013
Comments