|
%I #7 May 30 2023 12:02:15
%S 22,33,49,74,111,166,249,374,561,841,1262,1893,2839,4259,6388,9582,
%T 14373,21560,32340,48510,72765,109147,163721,245581,368372,552558,
%U 828837,1243255,1864883,2797324,4195986,6293979,9440969,14161453
%N a(n) = 22 + floor( Sum_{j=1..n-1} a(j)/2 ).
%H G. C. Greubel, <a href="/A120146/b120146.txt">Table of n, a(n) for n = 1..1000</a>
%t A120146[n_]:= 22 + Quotient[Sum[a[k], {k,n-1}], 2];
%t Table[A120146[n], {n,60}] (* _G. C. Greubel_, May 30 2023 *)
%o (SageMath)
%o @CachedFunction
%o def A120146(n): return 22 + sum(A120146(k) for k in range(1,n))//2
%o [A120146(n) for n in range(1, 61)] # _G. C. Greubel_, May 30 2023
%Y Cf. A073941, A112088, A072493.
%K nonn
%O 1,1
%A _Graeme McRae_, Jun 10 2006
|
