%I #18 Jan 02 2023 12:30:49
%S 3,4,5,11,7,8,9,19,11,23,13,27,29,16,17,103,19,191,41,43,23,47,25,101,
%T 27,109,29,59,31,32,97,67,103,71,37,149,191,79,41,83,43,173,89,181,47,
%U 283,49,197,101,103,53,107,109,331,113,229,59
%N Smallest nontrivial prime power congruent to 1 mod n.
%H Alois P. Heinz, <a href="/A224503/b224503.txt">Table of n, a(n) for n = 2..10000</a>
%H David Harden, <a href="http://list.seqfan.eu/oldermail/seqfan/2013-April/011015.html">Smallest groups with an irreducible representation of given dimension</a>
%p A224503 := proc(n)
%p local i;
%p for i from 2 do
%p if (A000961(i) mod n) = 1 then
%p return A000961(i);
%p end if;
%p end do:
%p end proc:
%p seq(A224503(n), n=2..100);
%t a[n_] := For[k = 2, True, k++, If[PrimePowerQ[k], If[Mod[k, n] == 1, Return[k]]]];
%t Table[a[n], {n, 2, 100}] (* _Jean-François Alcover_, May 18 2018 *)
%Y Cf. A000961, A024619, A080765.
%K nonn
%O 2,1
%A _R. J. Mathar_, Apr 08 2013
|