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-2 of 2 results.

A357381 Expansion of Product_{k>=1} 1 / (1 + x^Fibonacci(k)).

Original entry on oeis.org

1, -2, 2, -3, 5, -7, 9, -11, 13, -16, 20, -23, 26, -31, 36, -41, 48, -55, 62, -71, 81, -92, 104, -116, 129, -145, 163, -180, 198, -219, 242, -267, 293, -320, 349, -381, 416, -452, 489, -529, 572, -618, 668, -719, 771, -829, 892, -956, 1023, -1094, 1167, -1246, 1331, -1416, 1504
Offset: 0

Views

Author

Ilya Gutkovskiy, Sep 26 2022

Keywords

Comments

Convolution inverse of A000121.

Crossrefs

Programs

  • Mathematica
    nmax = 54; CoefficientList[Series[Product[1/(1 + x^Fibonacci[k]), {k, 1, 21}], {x, 0, nmax}], x]

A357520 Expansion of Product_{k>=0} (1 - x^Lucas(k)).

Original entry on oeis.org

1, -1, -1, 0, 0, 2, 0, -1, 0, 0, 1, -1, -1, 1, 0, 1, -1, -1, 0, 1, 1, -1, 0, 0, 0, 1, -1, -1, 0, 0, 2, 0, 0, -1, -1, 1, 0, 0, 0, 0, 1, -1, -1, 0, 0, 2, 0, -1, 0, 0, 1, 0, -2, 0, 0, 1, 1, -1, 0, 0, 0, 0, 0, 0, 0, 1, -1, -1, 0, 0, 2, 0, -1, 0, 0, 1, -1, -1, 1, 0, 1, -1, -1, 1, 0, 0, -1, 0, 2, 0, 0, -1, -1, 1
Offset: 0

Views

Author

Ilya Gutkovskiy, Oct 02 2022

Keywords

Comments

Convolution inverse of A067593.

Crossrefs

Programs

  • Mathematica
    nmax = 100; CoefficientList[Series[Product[(1 - x^LucasL[k]), {k, 0, 20}], {x, 0, nmax}], x]
Showing 1-2 of 2 results.