OFFSET
1,2
MATHEMATICA
a[1] = 1; a[n_] := a[n] = Block[{k = 1}, While[ GCD[k*a[n - 1] + 1, n] != 1, k++ ]; k]; Table[ a[n], {n, 105}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 13 2005
EXTENSIONS
More terms from Robert G. Wilson v, Feb 11 2005
STATUS
approved