A076896 - OEIS

%I #13 May 09 2022 08:36:32

%S 1,1,2,3,3,3,4,5,6,7,7,7,8,8,8,9,10,11,12,12,13,14,15,15,16,16,16,17,

%T 17,18,19,19,19,20,20,21,22,22,23,24,25,25,26,27,27,28,28,29,30,31,31,

%U 32,33,33,34,34,35,36,36,36,37,37,38,39,39,39,40,41,41,42,43,43,44,44

%N a(1) = 1, a(n) = n-a(floor(2n/3)).

%H Amiram Eldar, <a href="/A076896/b076896.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) is asymptotic to (6/10)*n.

%t a[1] = 1; a[n_] := a[n] = n - a[Floor[2*n/3]]; Array[a, 100] (* _Amiram Eldar_, May 09 2022 *)

%o (PARI) a(n)=if(n==0,0,n-a(floor(2*n/3))); \\ _Joerg Arndt_, Apr 27 2013

%Y Cf. A050292.

%K nonn

%O 1,3

%A _Benoit Cloitre_, Nov 26 2002