A182444 a(0)=0, a(1)=1, for n>1, a(n) = a(n-1) + (a(n-2) mod n).

0, 1, 1, 2, 3, 5, 8, 13, 13, 17, 20, 26, 34, 34, 40, 44, 52, 62, 78, 83, 101, 121, 134, 140, 154, 169, 193, 200, 225, 251, 266, 269, 279, 284, 291, 295, 298, 334, 366, 388, 394, 413, 429, 455, 488, 493, 521, 544, 585, 590, 625, 654, 655, 673, 680, 693

Offset

0,4

Links

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

Mathematica

nxt[{n_, a_, b_}]:={n+1, b, b+Mod[a, n+1]}; NestList[nxt, {1, 0, 1}, 60][[All, 2]] (* Harvey P. Dale, May 30 2020 *)

Prog

(Python)
prpr = 0
prev = 1
for i in range(2, 99):
.  current = prev + (prpr % i)
.  print prpr,
.  prpr = prev
.  prev = current

Crossrefs

Cf. A182445.

Sequence in context: A237568 A272918 A010076 * A138183 A076591 A078695

Adjacent sequences: A182441 A182442 A182443 * A182445 A182446 A182447

Keyword

nonn

Author

Alex Ratushnyak, Apr 29 2012

Status

approved