|
%I #6 Nov 01 2022 09:05:34
%S 1,8,15,57,64,106,148,400,407,449,491,743,785,1037,1289,2801,2808,
%T 2850,2892,3144,3186,3438,3690,5202,5244,5496,5748,7260,7512,9024,
%U 10536,19608,19615,19657,19699,19951,19993,20245,20497,22009,22051,22303,22555,24067
%N Partial sums of A151791.
%H Michael De Vlieger, <a href="/A151792/b151792.txt">Table of n, a(n) for n = 1..8192</a>
%H Hsien-Kuei Hwang, Svante Janson, and Tsung-Hsi Tsai, <a href="https://arxiv.org/abs/2210.10968">Identities and periodic oscillations of divide-and-conquer recurrences splitting at half</a>, arXiv:2210.10968 [cs.DS], 2022, p. 33.
%t a[n_] := 7*6^(Total@ IntegerDigits[n - 1, 2] - 1); a[1] = 1; Accumulate@ Array[a, 44] (* _Michael De Vlieger_, Nov 01 2022 *)
%Y Cf. A151791.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Jun 25 2009
|
