OFFSET
0,1
COMMENTS
Has an interesting and irregular behavior.
MATHEMATICA
a[0] = 7; a[1] = 11; a[2] = 13; a[3] = 17; a[n_Integer?Positive] := a[n] = Abs[ a[n - 2] + a[n - 3] - a[n - 4]]; Table[ a[n], {n, 0, 65}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 21 2005
EXTENSIONS
More terms from Robert G. Wilson v, Apr 13 2005
STATUS
approved