%I #6 Oct 15 2020 10:52:08
%S 1,77,161,209,231,253,329,377,385,413,437,473,483,497,517,539,581,589,
%T 627,649,689,713,737,749,759,805,817,869,893,913,917,987,989,1045,
%U 1073,1081,1121,1127,1133,1155,1169,1177,1197,1239,1253,1265,1273,1309,1311,1313,1333
%N Integers m such that A337454(m) = 1.
%o (PARI) f(n) = sumdiv(n, d, n % (sum(m=0, n-1, Mod(m, n)^d == m)/sum(m=0, n-1, -Mod(m, n)^d == m)) == 0); \\ A337454
%o isok(n) = f(n) == 1;
%Y Cf. A337454, A338190.
%K nonn
%O 1,2
%A _Michel Marcus_, Oct 15 2020
|