OFFSET
2,1
COMMENTS
a(n) <= A317357(n-1).
a(n) <= A151800(n), where a(n) < A151800(n) for n = 5, 13, 34, 37, ... with composite terms a(n) = 6, 16, 36, 40, ...
The smallest odd composite term is a(201) = 207. Are there any more? - Michel Marcus, Jul 02 2018
Conjecture: If p is a prime, then odd a(p) is the next prime after p. - Thomas Ordowski, Aug 06 2018
MATHEMATICA
Array[Block[{m = # + 1}, While[Mod[Sum[k^(m - 1), {k, # - 1}], m] != # - 1, m++]; m] &, 69, 2] (* Michael De Vlieger, Aug 02 2018 *)
PROG
(PARI) a(n) = for(m=n+1, oo, if (sum(k=1, n-1, Mod(k, m)^(m-1)) == Mod(n-1, m), return (m)); ); \\ Michel Marcus, Aug 01 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Aug 01 2018
EXTENSIONS
More terms from Michel Marcus, Aug 01 2018
STATUS
approved