A151792 Partial sums of A151791.
1, 8, 15, 57, 64, 106, 148, 400, 407, 449, 491, 743, 785, 1037, 1289, 2801, 2808, 2850, 2892, 3144, 3186, 3438, 3690, 5202, 5244, 5496, 5748, 7260, 7512, 9024, 10536, 19608, 19615, 19657, 19699, 19951, 19993, 20245, 20497, 22009, 22051, 22303, 22555, 24067
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..8192
- Hsien-Kuei Hwang, Svante Janson, and Tsung-Hsi Tsai, Identities and periodic oscillations of divide-and-conquer recurrences splitting at half, arXiv:2210.10968 [cs.DS], 2022, p. 33.
Crossrefs
Cf. A151791.
Programs
-
Mathematica
a[n_] := 7*6^(Total@ IntegerDigits[n - 1, 2] - 1); a[1] = 1; Accumulate@ Array[a, 44] (* Michael De Vlieger, Nov 01 2022 *)