A088522 a(1) = 2; for n > 1, a(n) = (a(n-1) + n) mod prime(n).

2, 1, 4, 1, 6, 12, 2, 10, 19, 0, 11, 23, 36, 7, 22, 38, 55, 12, 31, 51, 72, 15, 38, 62, 87, 12, 39, 67, 96, 13, 44, 76, 109, 4, 39, 75, 112, 150, 22, 62, 103, 145, 188, 39, 84, 130, 177, 2, 51, 101, 152, 204, 16, 70, 125, 181, 238, 25, 84, 144, 205, 267, 23, 87, 152, 218, 285

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

a[1] = 2; a[n_] := a[n] = Mod[a[n - 1] + n, Prime[n]]; Table[ a[n], {n, 67}]
nxt[{n_, a_}]:={n+1, Mod[a+n+1, Prime[n+1]]}; NestList[nxt, {1, 2}, 70][[;; , 2]] (* Harvey P. Dale, Jul 19 2023 *)

Crossrefs

Cf. A088521, A088523, A006257.

Sequence in context: A239093 A263453 A108952 * A252751 A199744 A360870

Adjacent sequences: A088519 A088520 A088521 * A088523 A088524 A088525

Keyword

nonn,easy

Author

N. J. A. Sloane, Nov 14 2003

Extensions

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

Status

approved