

A343930


Numbers k such that Sum_{j=1..k} (j)^j == 1 (mod k).


2



1, 2, 30, 33, 37, 83, 149, 262, 4030, 31969, 140225, 182730, 724754, 2337094, 3985753, 4195221, 4541725
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS



MATHEMATICA

q[n_] := n == 1  Mod[Sum[PowerMod[k, k, n], {k, 1, n}], n] == 1; Select[Range[5000], q] (* Amiram Eldar, May 04 2021 *)


PROG

(PARI) isok(n) = sum(k=1, n, Mod(k, n)^k)==1;


CROSSREFS



KEYWORD

nonn,more


AUTHOR



EXTENSIONS



STATUS

approved



