A087846 a(n) = a(a(a(abs(n - a(n-1))))) + a(abs(n - a(n-4))).

1, 1, 1, 1, 2, 3, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 10, 9, 10, 10, 10, 10, 10, 10, 10, 10, 12, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 14, 13, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 17, 15, 17, 17, 16, 17, 17, 17, 17, 17, 17, 17

Offset

1,5

Links

Table of n, a(n) for n=1..81.

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

Cf. A081831.

Sequence in context: A194259 A246264 A102676 * A067854 A194214 A251416

Adjacent sequences: A087843 A087844 A087845 * A087847 A087848 A087849

Keyword

nonn

Author

Roger L. Bagula, Oct 07 2003

Status

approved