|
%I #15 May 13 2023 19:20:50
%S 16,24,36,54,81,121,182,273,409,614,921,1381,2072,3108,4662,6993,
%T 10489,15734,23601,35401,53102,79653,119479,179219,268828,403242,
%U 604863,907295,1360942,2041413,3062120,4593180,6889770,10334655,15501982
%N a(n) = 16 + floor(Sum_{j=1..n-1} a(j)/2).
%H G. C. Greubel, <a href="/A120142/b120142.txt">Table of n, a(n) for n = 1..1000</a>
%t Nest[Append[#,16+Floor[Total[#]/2]]&,{16},40] (* _Harvey P. Dale_, Apr 20 2011 *)
%o (SageMath)
%o @CachedFunction
%o def A120142(n): return 16 + (sum(A120142(k) for k in range(1,n)))//2
%o [A120142(n) for n in range(1,60)] # _G. C. Greubel_, May 11 2023
%Y Cf. A073941, A072493, A112088, A120134 - A120141, A120143 - A120209.
%K nonn
%O 1,1
%A _Graeme McRae_, Jun 10 2006
|
