|
|
A224503
|
|
Smallest nontrivial prime power congruent to 1 mod n.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
MAPLE
|
local i;
for i from 2 do
end if;
end do:
end proc:
|
|
MATHEMATICA
|
a[n_] := For[k = 2, True, k++, If[PrimePowerQ[k], If[Mod[k, n] == 1, Return[k]]]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|