|
| |
|
|
A087846
|
|
a[n] =a[a[aa[Abs[n - a[n-1]]]]] + a[Abs[n - a[n-4]]]
|
|
0
| |
|
|
1, 1, 1, 1, 2, 3, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 10, 9, 10, 10, 10, 10, 10, 10, 10, 10, 12, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 14, 13, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 17, 15, 17, 17, 16, 17, 17, 17, 17, 17, 17, 17
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
COMMENTS
| The skip one term one fourth recursion of the Hofstadter Q.
|
|
|
MATHEMATICA
| Hofstadter14[n_Integer?Positive] := Hofstadter14[n] = Hofstadter14[Hofstadter14[Hofstadter14[Abs[n - Hofstadter14[n-1]]]]] + 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}]
|
|
|
CROSSREFS
| Cf. A005185, A081831.
Sequence in context: A094699 A194259 A102676 * A067854 A194214 A087829
Adjacent sequences: A087843 A087844 A087845 * A087847 A087848 A087849
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 07 2003
|
| |
|
|
