Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #4 Mar 30 2012 17:34:13
%S 1,2,3,4,5,7,10,14,15,19,20,26,27,30,31,33,34,37,41,44,47,55,62,64,66,
%T 70,74,75,84,86,87,90,93,94,96,101,111,112,116,119,122,123,129,130,
%U 140,142,145,148,157,158,163,166,172,174,178,179,181,193,199,203,224,225
%N Consecutive repeats in A087831, the triple recursion skip two Hofstadter Q of the second sort.
%t Hofstadter14[n_Integer?Positive] := Hofstadter14[n] = Hofstadter14[Abs[n - Hofstadter14[n-1]]] + Hofstadter14[ Hofstadter14[Abs[n - Hofstadter14[n-4]]]] Hofstadter14[0] = Hofstadter14[1] = Hofstadter14[2]= Hofstadter14[3]= Hofstadter14[4]= 1 digits=3000 ta=Table[Hofstadter14[n], {n, 1, digits}]; b=Table[If[ta[[n]]-ta[[n-1]]==0, ta[[n]], 0], {n, 2, digits}]; c=Delete[Union[b], 1]
%Y Cf. A005206.
%K nonn
%O 0,2
%A _Roger L. Bagula_, Oct 06 2003