OFFSET
0,4
REFERENCES
Ivars Peterson, The Jungles of Randomness, 1998, John Wiley and Sons, Inc., page 207
FORMULA
f(x)=f(x - 2) + f(x - 3) + Floor[f(x - 1)/10];
a(n)=Mod[f(n),10].
MATHEMATICA
f[0] = f[1] = f[2] = 1;
f[x_] := f[x] = f[x - 2] + f[x - 3] + Floor[f[x - 1]/10];
Table[Mod[f[n], 10], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Dec 02 2008
STATUS
approved