OFFSET
0,4
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..10001 [a(9917) corrected by Georg Fischer, Dec 03 2023]
MATHEMATICA
l = {1, 1}; For[i = 3, i <= 100, i++, len = Length[l]; l = Append[l, Mod[l[[len]] + l[[len - 1]], i]]]; l
f[s_] := f[s] = Append[s, Mod[s[[ -2]] + s[[ -1]], Length[s]]]; Nest[f, {0, 1}, 80] (* Robert G. Wilson v, Dec 16 2007 *)
RecurrenceTable[{a[0]==0, a[1]==1, a[n]==Mod[a[n-1]+a[n-2], n]}, a, {n, 80}] (* Harvey P. Dale, Nov 29 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Mar 08 2003
EXTENSIONS
Edited by Robert G. Wilson v, Dec 16 2007
STATUS
approved