OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_] := Mod[Sum[PowerMod[i, n + 1, n], {i, 1, n}], n]; Select[Range[1000], f[#] == 0 &]
PROG
(PARI) is(n)=my(m=n+1); sum(k=1, n, Mod(k, n)^m)==0 \\ Charles R Greathouse IV, Nov 20 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Sep 08 2013
STATUS
approved