1,3

A fifth-order recursion based on Hofstadter's Q-sequence A005185.

Paolo P. Lava, Table of n, a(n) for n = 1..10000

Hofstadter1[1] = Hofstadter1[2] = 1; Hofstadter1[n_Integer?Positive] := Hofstadter1[n] = Hofstadter1[Hofstadter1[Hofstadter1[Hofstadter1[n - Hofstadter1[n - 1]]]]] + Hofstadter1[ n - Hofstadter1[n - 2]]; a = Table[Hofstadter1[n], {n, 1, digits}]

Cf. A087842, A005185.

Sequence in context: A209869 A087839 A106742 * A087838 A057627 A013940

Adjacent sequences: A106730 A106731 A106732 * A106734 A106735 A106736

nonn

Roger L. Bagula, May 30 2005

approved