A224503 Smallest nontrivial prime power congruent to 1 mod n.

3, 4, 5, 11, 7, 8, 9, 19, 11, 23, 13, 27, 29, 16, 17, 103, 19, 191, 41, 43, 23, 47, 25, 101, 27, 109, 29, 59, 31, 32, 97, 67, 103, 71, 37, 149, 191, 79, 41, 83, 43, 173, 89, 181, 47, 283, 49, 197, 101, 103, 53, 107, 109, 331, 113, 229, 59

Offset

2,1

Links

Alois P. Heinz, Table of n, a(n) for n = 2..10000

David Harden, Smallest groups with an irreducible representation of given dimension

Maple

A224503 := proc(n)
    local i;
    for i from 2 do
        if (A000961(i) mod n) = 1 then
             return A000961(i);
        end if;
    end do:
end proc:
seq(A224503(n), n=2..100);

Mathematica

a[n_] := For[k = 2, True, k++, If[PrimePowerQ[k], If[Mod[k, n] == 1, Return[k]]]];
Table[a[n], {n, 2, 100}] (* Jean-François Alcover, May 18 2018 *)

Crossrefs

Cf. A000961, A024619, A080765.

Sequence in context: A332790 A329524 A319067 * A349005 A128920 A006288

Adjacent sequences: A224500 A224501 A224502 * A224504 A224505 A224506

Keyword

nonn

Author

R. J. Mathar, Apr 08 2013

Status

approved