1,1

Table of n, a(n) for n=1..67.

a[1] = 2; a[n_] := a[n] = Mod[a[n - 1] + n, Prime[n]]; Table[ a[n], {n, 67}]

Cf. A088521, A088523, A006257.

Sequence in context: A239093 A263453 A108952 * A252751 A199744 A115124

Adjacent sequences: A088519 A088520 A088521 * A088523 A088524 A088525

nonn,easy

N. J. A. Sloane, Nov 14 2003

More terms from Robert G. Wilson v and Ray Chandler, Nov 15 2003

approved