|
%I #6 Jan 12 2022 09:50:49
%S 6,10,12,18,21,36,40,42,48,50,54,55,70,78,80,84,90,96,105,108,110,114,
%T 126,136,144,147,150,156,160,162,165,168,170,171,186,189,190,200,210,
%U 220,222,228,234,250,252,253,258,270,272,273,275,280,288,290,294
%N Numbers n such that A231566(n) <> n.
%t Su[n_] := Su[n] = Mod[Sum[GCD[i, n]*PowerMod[i, n, n], {i, 1, n}], n]; Select[Range[400], ! Su[2#] == # &]
%Y Cf. A231566.
%K nonn
%O 1,1
%A _José María Grau Ribas_, Feb 01 2014
|
