|
%I #11 Mar 12 2014 16:37:16
%S 1,1,1,1,2,2,2,2,3,3,4,4,4,4,4,4,5,5,6,6,6,7,7,7,8,8,8,8,8,8,8,8,9,9,
%T 10,10,11,11,11,12,12,12,13,13,13,14,14,14,14,15,15,15,15,15,16,16,16,
%U 16,16,16,16,16,16,16,17,17,18,18,19,19,19,20,20,21,21,21,22,22,23,23,23,24,24,24,24,24,25,25,26,26,26,27,27,27,27,27,28,28,28,29
%N a(n) = A004001(n)-floor(A004001(n)/2).
%t f[0] = 0; f[1] = 1; f[2] = 1;
%t f[n_] := f[n] = f[f[n - 1]] + f[n - f[n - 1]];
%t b = Table[f[n] - Floor[f[n]/2], {n, 0, 100}]
%Y Cf. A004001.
%K nonn
%O 1,5
%A _Roger L. Bagula_, Dec 03 2010
|
