OFFSET
0,5
COMMENTS
Proof of the formula from Ralf Stephan: If a(n) is in a suitable range, it is possible to omit the abs and the mod function. So for n > 6, a(n) simplifies to a(n) = 2*n-2 - a(n-1) - a(n-2). Substituting a(n-1), we get a(n) = 2*n - 2 - (2*(n-1) - 2 - a(n-2) - a(n-3)) - a(n-2) = a(n-3) + 2. - Lambert Herrgesell (zero815(AT)googlemail.com), Jan 18 2007
LINKS
Clifford A. Pickover, The Crying of Fractal Batrachion, Chapter 19 in Chaos and Fractals, A Computer Graphical Journey, 1998, Pages 127-131
FORMULA
For n > 6, a(n) = a(n-3) + 2. - Ralf Stephan, May 09 2004
MATHEMATICA
f[n_] := f[n] = Mod[ Abs[n - 1 - f[n - 2]], n] + Mod[ Abs[n - 1 - f[n - 1]], n - 1]; f[0] = 1; f[1] = 1; Table[ f[n], {n, 0, 75}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Jul 04 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jul 15 2002
STATUS
approved