A175387 - OEIS

%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