OFFSET
2,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 2..10000
MAPLE
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
KEYWORD
nonn
AUTHOR
R. J. Mathar, Apr 08 2013
STATUS
approved