OFFSET
0,4
MAPLE
a := proc(n) local v; option remember;
if n = 0 then v := 0; end if;
if n = 1 or n = 2 then v := 1; end if;
if 3 <= n and n <= 5 then v := a(a(n - 1)) + a(n - a(n - 1)); end if;
if 6 <= n and 5 <> n mod 6 then v := a(a(n - 1)) + a(a(floor(n/6))); end if;
if 6 <= n and 5 = n mod 6 then v := a(a(n - 1)) + a(n - a(floor(n/6))); end if; v; end proc; # Petros Hadjicostas, Apr 21 2020
MATHEMATICA
f[0] = 0; f[1] = 1; f[2] = 1;
f[n_] := f[n] =
f[f[n - 1]] +
If[n < 6, f[n - f[n - 1]],
If[Mod[n, 6] == 0, f[f[n/6]],
If[Mod[n, 6] == 1, f[f[(n - 1)/6]],
If[Mod[n, 6] == 2, f[f[(n - 2)/6]],
If[Mod[n, 6] == 3, f[f[(n - 3)/6]],
If[Mod[n, 6] == 4, f[f[(n - 4)/6]], f[n - f[(n - 5)/6]]]]]]]];
Table[f[n], {n, 0, 300}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 17 2008
EXTENSIONS
Name, data, and Mathematica program edited and corrected by Petros Hadjicostas, Apr 21 2020
STATUS
approved