1,3

S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 129.

Table of n, a(n) for n=1..80.

Nick Hobson, Python program for this sequence

Eric Weisstein's World of Mathematics, Wolfram Sequences

Index entries for Hofstadter-type sequences

a[1] = a[2] = 1; a[n_] := a[n] = a[ a[n - 1]] + a[n + 1 - 2*a[n - 1]]; Table[ a[n], {n, 1, 80}]

Sequence in context: A177903 A107325 A003050 * A342219 A272612 A155216

Adjacent sequences: A070865 A070866 A070867 * A070869 A070870 A070871

nonn,easy

N. J. A. Sloane, May 19 2002

More terms from Robert G. Wilson v, May 20 2002

approved