A175018 - OEIS

%I #12 Mar 12 2014 16:37:15

%S 1,1,1,2,2,2,3,3,3,3,3,4,4,4,5,5,5,6,6,6,6,6,6,8,7,7,8,8,8,8,10,9,9,

%T 10,11,10,10,11,11,11,12,12,12,12,12,12,12,16,12,13,15,14,13,15,15,14,

%U 16,15,16,16,16,16,20,17,16,19,18,17,20,20,19,19,20,20,20,20,21,20,21,22,22,22,22,23,22,23,24,24,23,24,24,24,24,24,24,32,21,26,27,28

%N A005185(n)-floor(A005185(n)/2).

%C The terms are defined wherever the Hofstaedter Q-function A005185 is defined.

%F a(n) = A110654(A005185(n)).

%t (* The following program uses a package that has been declared obsolete. Version 7.0 will still load it but not before issuing a warning. *)

%t << DiscreteMath`CombinatorialFunctions`

%t Table[Hofstadter[n] - Floor[Hofstadter[n]/2], {n, 200}] (* From Roger Bagula *)

%t (* For the following program, first run the program given for A005185 *) q[n_]:=a[n] - Floor[a[n]/2]; Table[q[n], {n, 100}] (* _Alonso del Arte_, Dec 02 2010 *)

%Y Cf. A005185.

%K nonn

%O 1,4

%A _Roger L. Bagula_, Dec 02 2010