A215525 a(0)=a(1)=1, a(n) = a(n-1) + a(a(n-2) mod n).
1, 1, 2, 3, 5, 8, 16, 17, 18, 36, 54, 57, 73, 81, 84, 100, 105, 205, 305, 405, 413, 429, 634, 734, 788, 824, 842, 926, 928, 1854, 2782, 3606, 6388, 6424, 9206, 9611, 10453, 11381, 11384, 17772, 18560, 18965, 30349, 30351, 36775, 37204, 37633, 38559, 38560, 75764
Offset: 0
Links
- Ivan Neretin, Table of n, a(n) for n = 0..10000
Crossrefs
Cf. A215488.
Programs
-
Mathematica
Fold[Append[#1, #1[[-1]] + #1[[1 + Mod[#1[[-2]], #2]]]] &, {1, 1}, Range[2, 49]] (* Ivan Neretin, Sep 07 2017 *)
-
Python
a = [1]*1000 for n in range(2,77): print(a[n-2],end=', ') a[n] = a[n-1] + a[a[n-2] % n] # Corrected by Derek Orr, Sep 25 2014
Formula
a(0)=a(1)=1, for n>=2, a(n) = a(n-1) + a(a(n-2) mod n).
Comments