1,3

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

H:=proc(n) option remember; if n=1 then 1 else n-H(H(H(H(H(H(n-1)))))); fi; end proc;

a[1] = 1; a[n_] := a[n] = n - a[a[a[a[a[a[n - 1]]]]]]; Table[ a[n], {n, 75}] (* Robert G. Wilson v, Dec 16 2004 *)

Cf. A005206, A005374, A005375, A005376.

Sequence in context: A195932 A327707 A134679 * A271490 A265359 A252649

Adjacent sequences: A100718 A100719 A100720 * A100722 A100723 A100724

nonn

N. J. A. Sloane, Dec 12 2004

approved