proposed
approved
proposed
approved
editing
proposed
a[n_] := a[n] = Which[n == 0, 1, EvenQ@ n, a[n/2] + a[n/2 - 1], True, a[(n - 1)/2] - Mod[(n - 1)/2 - 1, 3] + 1]; Table[a[2 n], {n, 0, 97}] (* Michael De Vlieger, Apr 05 2017, after _Jean - François Alcover _ _ at A000360 *)
approved
editing
proposed
approved
editing
proposed
a[n_] := a[n] = Which[n == 0, 1, EvenQ@ n, a[n/2] + a[n/2 - 1], True, a[(n - 1)/2] - Mod[(n - 1)/2 - 1, 3] + 1]; Table[a[2 n], {n, 0, 97}] (* Michael De Vlieger, Apr 05 2017, after _Jean - François Alcover _ at A000360 *)
proposed
editing
editing
proposed
Antti Karttunen, <a href="/A284565/b284565.txt">Table of n, a(n) for n = 0..8192</a>
allocated for Antti Karttunen
Bisection of A000360.
1, 1, 1, 2, 2, 2, 3, 2, 2, 4, 4, 3, 4, 4, 3, 3, 3, 4, 6, 5, 5, 7, 6, 4, 5, 6, 6, 6, 5, 5, 5, 3, 3, 6, 7, 6, 8, 9, 8, 7, 7, 9, 11, 9, 8, 10, 8, 5, 6, 8, 9, 9, 9, 10, 10, 7, 6, 9, 9, 7, 7, 7, 5, 4, 4, 6, 9, 8, 9, 12, 11, 8, 10, 13, 14, 13, 12, 13, 12, 8, 8, 13, 15, 13, 15, 17, 15, 12, 11, 14, 16, 13, 11, 13, 10, 6, 7, 10
0,4
allocated
nonn
Antti Karttunen, Apr 05 2017
approved
editing