This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A175387 #11 Mar 12 2014 16:37:16 %S A175387 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 A175387 10,10,11,11,11,12,12,12,13,13,13,14,14,14,14,15,15,15,15,15,16,16,16, %U A175387 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 A175387 a(n) = A004001(n)-floor(A004001(n)/2). %t A175387 f[0] = 0; f[1] = 1; f[2] = 1; %t A175387 f[n_] := f[n] = f[f[n - 1]] + f[n - f[n - 1]]; %t A175387 b = Table[f[n] - Floor[f[n]/2], {n, 0, 100}] %Y A175387 Cf. A004001. %K A175387 nonn %O A175387 1,5 %A A175387 _Roger L. Bagula_, Dec 03 2010