cp's OEIS Frontend

A178677 If n mod 2 == 0, a(n) = a(floor(n/2)), otherwise a(n) = a(a(floor((n-1)/2))) + a(n - a(floor((n-1)/2))).

%I A178677 #14 Dec 26 2023 10:21:41
%S A178677 0,1,1,2,1,2,2,3,1,2,2,3,2,4,3,4,1,2,2,3,2,4,3,4,2,5,4,5,3,6,4,6,1,2,
%T A178677 2,3,2,4,3,4,2,5,4,5,3,6,4,6,2,7,5,6,4,8,5,7,3,7,6,10,4,8,6,9,1,2,2,3,
%U A178677 2,4,3,4,2,5,4,5,3,6,4,6,2,7,5,6,4,8,5,7,3,7,6,10,4,8,6,9,2,10,7,7,5,4,6,12
%N A178677 If n mod 2 == 0, a(n) = a(floor(n/2)), otherwise a(n) = a(a(floor((n-1)/2))) + a(n - a(floor((n-1)/2))).
%H A178677 G. C. Greubel, <a href="/A178677/b178677.txt">Table of n, a(n) for n = 0..10000</a>
%t A178677 a[0]:= 0; a[1]:= 1; a[2]:= 1;
%t A178677 a[n_]:= a[n] = If[Mod[n,2]==0, a[Floor[n/2]], a[a[Floor[(n-1)/2]]] + a[n-a[Floor[(n-1)/2]]]];
%t A178677 Table[a[n], {n, 0, 100}]
%Y A178677 Cf. A002487, A177219, A004001.
%K A178677 nonn
%O A178677 0,4
%A A178677 _Roger L. Bagula_ and _Gary W. Adamson_, Jun 03 2010