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.

Showing 1-3 of 3 results.

A300457 a(n) = [x^n] Product_{k=1..n} (1 - x^k)^(n^k).

Original entry on oeis.org

1, -1, -3, -1, 25, 624, 9871, 170470, 3027249, 55077245, 979330606, 15079702923, 94670678245, -7958168036625, -626145997536240, -34564907982551791, -1733699815491494303, -84294315853736719077, -4067859614343931897505, -196552300464314521511610, -9519733465269825759734169
Offset: 0

Views

Author

Ilya Gutkovskiy, Mar 06 2018

Keywords

Examples

			The table of coefficients of x^k in expansion of Product_{k>=1} (1 - x^k)^(n^k) begins:
n = 0: (1),  0,    0,    0,   0,     0,  ...
n = 1:  1, (-1),  -1,    0,   0,     1,  ...
n = 2:  1,  -2,  (-3),   0,   2,    12,  ...
n = 3:  1,  -3,   -6,  (-1),  9,    63,  ...
n = 4:  1,  -4,  -10,   -4, (25),  224,  ...
n = 5:  1,  -5,  -15,  -10,  55,  (624), ...
		

Crossrefs

Programs

  • Mathematica
    Table[SeriesCoefficient[Product[(1 - x^k)^(n^k), {k, 1, n}], {x, 0, n}], {n, 0, 20}]

A300458 a(n) = [x^n] Product_{k=1..n} 1/(1 + x^k)^(n^k).

Original entry on oeis.org

1, -1, -1, -10, 11, 374, 9792, 183847, 3469427, 65038049, 1195396233, 19667738452, 189089161562, -6219720781782, -606316892131934, -35104997710496175, -1795953382595105853, -88223902016631657740, -4283800987347611165184, -207864171877269042498096, -10102590396625592962089500
Offset: 0

Views

Author

Ilya Gutkovskiy, Mar 06 2018

Keywords

Examples

			The table of coefficients of x^k in expansion of Product_{k>=1} 1/(1 + x^k)^(n^k) begins:
n = 0: (1),  0,    0,    0,   0,     0,  ...
n = 1:  1, (-1),   0,   -1,   1,    -1,  ...
n = 2:  1,  -2,  (-1),  -4,   3,    -2,  ...
n = 3:  1,  -3,   -3, (-10),  6,    15,  ...
n = 4:  1,  -4,   -6,  -20, (11),  104,  ...
n = 5:  1,  -5,  -10,  -35,  20,  (374), ...
		

Crossrefs

Programs

  • Mathematica
    Table[SeriesCoefficient[Product[1/(1 + x^k)^(n^k), {k, 1, n}], {x, 0, n}], {n, 0, 20}]

A321261 a(n) = [x^n] Product_{k>=1} (1 + x^k)^(sigma_n(k)-k^n).

Original entry on oeis.org

1, 0, 1, 1, 17, 2, 859, 131, 105508, 40907, 72916903, 6834168, 228239366293, 27616985835, 2050004858009336, 352807044193881, 87173272463714343166, 6798224808203572198, 18318379579349549499397403, 1187836799227050499295342, 11258903016282277676462826232428
Offset: 0

Views

Author

Ilya Gutkovskiy, Nov 01 2018

Keywords

Crossrefs

Programs

  • Mathematica
    Table[SeriesCoefficient[Product[(1 + x^k)^(DivisorSigma[n, k] - k^n), {k, 1, n}], {x, 0, n}], {n, 0, 20}]
    Table[SeriesCoefficient[Exp[Sum[Sum[(-1)^(k/d + 1) d (DivisorSigma[n, d] - d^n), {d, Divisors[k]}] x^k/k, {k, 1, n}]], {x, 0, n}], {n, 0, 20}]

Formula

a(n) = [x^n] exp(Sum_{k>=1} ( Sum_{d|k} (-1)^(k/d+1)*d*(sigma_n(d) - d^n) ) * x^k/k).
Showing 1-3 of 3 results.