Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 Oct 05 2023 10:58:00
%S 1,3,5,7,9,10,11,13,14,15,17,19,21,22,23,25,26,27,28,29,31,33,34,35,
%T 37,38,39,41,43,44,45,46,47,49,50,51,52,53,55,56,57,58,59,61,62,63,65,
%U 67,68,69,70,71,73,74,75,76,77,78,79,81,82,83,85,86,87,88
%N Numbers such that A231563(n)=0.
%C This sequence contains the odd primes.
%t S[n_] := Mod[Sum[If[GCD[i, n] == 1, PowerMod[i, n, n], 0], {i, 1, n}], n];Select[Range[100],S[#]==0&]
%Y Cf. A231563, A231565.
%K nonn
%O 1,2
%A _José María Grau Ribas_, Dec 09 2013