cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A261584 Expansion of Product_{k>=1} (1 + 2*x^k)/(1 - 2*x^k).

This page as a plain text file.
%I A261584 #8 Nov 21 2015 00:45:07
%S A261584 1,4,12,36,92,228,540,1236,2748,6004,12876,27252,57036,118308,243564,
%T A261584 498564,1015484,2060484,4167804,8409588,16934748,34049940,68378220,
%U A261584 137185428,275026476,551052676,1103618508,2209525092,4422484764,8850120420,17707920924
%N A261584 Expansion of Product_{k>=1} (1 + 2*x^k)/(1 - 2*x^k).
%F A261584 a(n) = c * 2^n, where c = 1/(A048651 * A083864) = 2*Product_{j>=1} (2^j+1)/(2^j-1) = 16.5119758715565001310882816988645462530540032335764606912075051272567456...
%t A261584 nmax = 40; CoefficientList[Series[Product[(1 + 2*x^k)/(1 - 2*x^k), {k, 1, nmax}], {x, 0, nmax}], x]
%t A261584 nmax = 40; CoefficientList[Series[Exp[Sum[2^(2*k)/(2*k-1)*x^(2*k-1)/(1 - x^(2*k-1)), {k, 1, nmax}]], {x, 0, nmax}], x]
%t A261584 (O[x]^30 - QPochhammer[-2, x]/(3 QPochhammer[2, x]))[[3]] (* _Vladimir Reshetnikov_, Nov 20 2015 *)
%Y A261584 Cf. A032302, A070933, A261563.
%K A261584 nonn
%O A261584 0,2
%A A261584 _Vaclav Kotesovec_, Aug 25 2015