%I A087847
%S A087847 1,1,1,1,2,2,3,3,3,4,4,4,4,5,5,5,5,5,6,6,6,6,6,6,7,7,7,7,7,7,7,8,8,8,8,
%T A087847 8,8,8,8,9,9,9,9,9,9,9,9,9,10,10,10,10,10,10,10,10,10,10,11,11,11,11,11,
%U A087847 11,11,11,11,11,11,12,12,12,12,12,12,12,12,12,12,12,12,13,13,13,13,13
%N A087847 a[n] =a[Abs[n - a[n-1]]] +a[a[ a[Abs[n - a[n-4]]]]]
%C A087847 The skip two term two fourth recusion of the Hofstadter Q.
%C A087847 The conjecture is that even higher order recursions of the term one and 
               term two type for the original and skip term versions of A005185 
               Hofstadter Q will exist as well. I have invented this way of naming 
               the larger generalization of Hofstadter Q type sequences as being 
               descriptive of their formation.
%t A087847 Hofstadter14[n_Integer?Positive] := Hofstadter14[n] = Hofstadter14[Abs[n 
               - Hofstadter14[n-1]]] + Hofstadter14[Hofstadter14[ Hofstadter14[Abs[n 
               - Hofstadter14[n-4]]]]] Hofstadter14[0] = Hofstadter14[1] = Hofstadter14[2]= 
               Hofstadter14[3]= Hofstadter14[4]= 1 digits=200 ta=Table[Hofstadter14[n], 
               {n, 1, digits}]
%Y A087847 Cf. A005185, A081831.
%Y A087847 Sequence in context: A124755 A033810 A023965 this_sequence A107436 A002024 
               A123578
%Y A087847 Adjacent sequences: A087844 A087845 A087846 this_sequence A087848 A087849 
               A087850
%K A087847 nonn
%O A087847 1,5
%A A087847 Roger L Bagula (rlbagulatftn(AT)yahoo.com), Oct 07 2003