login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A308985 Expansion of Product_{k>=0} (1 + 2*x^(2^k))^2. 1
1, 4, 8, 16, 24, 32, 48, 64, 88, 96, 128, 128, 176, 192, 256, 256, 344, 352, 448, 384, 512, 512, 640, 512, 688, 704, 896, 768, 1024, 1024, 1280, 1024, 1368, 1376, 1728, 1408, 1856, 1792, 2176, 1536, 2048, 2048, 2560, 2048, 2688, 2560, 3072, 2048, 2736, 2752, 3456 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Self-convolution of A001316.

LINKS

Table of n, a(n) for n=0..50.

FORMULA

a(n) = Sum_{k=0..n} 2^(A000120(k)+A000120(n-k)).

a(n) = A001316(n) * Sum_{k=0..n} 2^(A007814(binomial(n,k))).

G.f. A(x) satisfies: A(x) = (1 + 2*x)^2 * A(x^2). - Ilya Gutkovskiy, Jul 09 2019

MATHEMATICA

nmax = 50; CoefficientList[Series[Product[(1 + 2 x^(2^k))^2, {k, 0, Floor[Log[2, nmax]] + 1}], {x, 0, nmax}], x]

a[n_] := a[n] = Sum[2^(DigitCount[k, 2, 1] + DigitCount[n - k, 2, 1]), {k, 0, n}]; Table[a[n], {n, 0, 50}]

CROSSREFS

Cf. A000120, A001316, A006046, A007814, A308986.

Sequence in context: A270345 A335668 A181823 * A046059 A290498 A137932

Adjacent sequences:  A308982 A308983 A308984 * A308986 A308987 A308988

KEYWORD

nonn

AUTHOR

Ilya Gutkovskiy, Jul 04 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 18 11:20 EST 2021. Contains 340254 sequences. (Running on oeis4.)