0,3

A variation on Hofstadter's G-sequence.

Anton Mosunov, Table of n, a(n) for n = 0..400

Index entries for Hofstadter-type sequences

Conjecture: a(n) ~ c*n, where c = sqrt(3) - 1 = 0.732050807...

a[0] = 0; a[n_] := a[n] = n - a[Floor[a[n - 1]/2]]; Array[a, 80, 0]

(PARI) a(n)=if(n>0, return(n-a(floor(a(n-1)/2)))); return(0); \\ Anton Mosunov, May 26 2017

Cf. A005206, A138466, A160390.

Sequence in context: A272206 A122797 A281957 * A103354 A127038 A175268

Adjacent sequences: A286386 A286387 A286388 * A286390 A286391 A286392

nonn

Ilya Gutkovskiy, May 24 2017

approved