OFFSET
1,5
MATHEMATICA
a[n_] := a[n] = a[a[a[Abs[n - a[n - 1]]]]] + a[Abs[n - a[n - 4]]]; a[1] = a[2] = a[3] = a[4] = 1; Table[a[n], {n, 81}] (* Corrected by L. Edson Jeffery, Dec 02 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 07 2003
STATUS
approved