A226964 Numbers n such that 1^n + 2^n + 3^n + ... + n^n == 6 (mod n).

1, 3, 4, 20, 36, 252, 10836

Offset

1,2

Comments

Also, numbers n such that B(n)*n == 6 (mod n), where B(n) is the n-th Bernoulli number. Equivalently, SUM[prime p, (p-1) divides n] n/p == -6 (mod n). There are no other terms below 10^15. - Max Alekseyev, Aug 26 2013

Links

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

Mathematica

Select[Range[10000], Mod[Sum[PowerMod[i, #, #], {i, #}], #] == 6 &]

Prog

(PARI) is(n)=Mod(sumdiv(n, d, if(isprime(d+1), n/(d+1))), n)==-6 \\ Charles R Greathouse IV, Nov 13 2013

Crossrefs

Cf. A031971.

Solutions to 1^n+2^n+...+n^n == m (mod n): A005408 (m=0), A014117 (m=1), A226960 (m=2), A226961 (m=3), A226962 (m=4), A226963 (m=5), this sequence (m=6), A226965 (m=7), A226966 (m=8), A226967 (m=9), A280041 (m=19), A280043 (m=43), A302343 (m=79), A302344 (m=193).

Sequence in context: A124631 A262033 A062870 * A222763 A306668 A300499

Adjacent sequences: A226961 A226962 A226963 * A226965 A226966 A226967

Keyword

nonn,more

Author

José María Grau Ribas, Jun 24 2013

Extensions

1,3,4 prepended by Max Alekseyev, Aug 26 2013

Status

approved