OFFSET
1,4
COMMENTS
The terms are defined wherever the Hofstaedter Q-function A005185 is defined.
MATHEMATICA
(* The following program uses a package that has been declared obsolete. Version 7.0 will still load it but not before issuing a warning. *)
<< DiscreteMath`CombinatorialFunctions`
Table[Hofstadter[n] - Floor[Hofstadter[n]/2], {n, 200}] (* From Roger Bagula *)
(* 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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Dec 02 2010
STATUS
approved