|
%I #26 Apr 12 2023 10:53:10
%S 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,
%T 9,10,10,10,10,10,10,10,10,12,11,12,12,12,12,12,12,12,12,12,12,14,13,
%U 14,14,14,14,14,14,14,14,14,14,14,14,17,15,17,17,16,17,17,17,17,17,17,17
%N a(n) = a(a(a(abs(n - a(n-1))))) + a(abs(n - a(n-4))).
%t 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 *)
%Y Cf. A081831.
%K nonn
%O 1,5
%A _Roger L. Bagula_, Oct 07 2003
|
