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.

A302605 a(n) = n! * [x^n] exp(n*x)*arcsin(x).

Original entry on oeis.org

0, 1, 4, 28, 272, 3384, 51300, 917064, 18884672, 440168832, 11454902500, 329208395264, 10355322975120, 353851897861760, 13052503620917124, 516917167506777600, 21875427250996723968, 985164766018898243584, 47043119138733155306052, 2374168079889664129576960
Offset: 0

Views

Author

Ilya Gutkovskiy, Apr 10 2018

Keywords

Crossrefs

Programs

  • Mathematica
    Table[n! SeriesCoefficient[Exp[n x] ArcSin[x], {x, 0, n}], {n, 0, 19}]

Formula

a(n) = Sum_{k=1..n} binomial(n,k)*(k-2)!!^2*n^(n-k)*(1-(-1)^k)/2. - Fabian Pereyra, Oct 05 2024

A302606 a(n) = n! * [x^n] exp(n*x)*arcsinh(x).

Original entry on oeis.org

0, 1, 4, 26, 240, 2884, 42660, 748544, 15185856, 349574544, 9000902500, 256293989984, 7996078704240, 271246034903232, 9939835626507332, 391303051339622400, 16469438021801262848, 737992773619777599744, 35077254665501330210628, 1762671472887447792620032
Offset: 0

Views

Author

Ilya Gutkovskiy, Apr 10 2018

Keywords

Crossrefs

Programs

  • Mathematica
    Table[n! SeriesCoefficient[Exp[n x] ArcSinh[x], {x, 0, n}], {n, 0, 19}]

Formula

a(n) ~ arcsinh(1) * n^n = log(1 + sqrt(2)) * n^n. - Vaclav Kotesovec, Jun 09 2019
a(n) = Sum_{k=1..n, k odd} (-1)^((k-1)/2)*binomial(n,k)*(k-2)!!^2*n^(n-k). - Fabian Pereyra, Oct 05 2024

A302608 a(n) = n! * [x^n] exp(n*x)*arctan(x).

Original entry on oeis.org

0, 1, 4, 25, 224, 2649, 38880, 679449, 13749248, 315919665, 8122432000, 231002307449, 7199799644160, 244028744225993, 8936047251296256, 351569799174274425, 14789182545666244608, 662389019735008588129, 31470659616611382460416, 1580849762199983023572313
Offset: 0

Views

Author

Ilya Gutkovskiy, Apr 10 2018

Keywords

Crossrefs

Programs

  • Mathematica
    Table[n! SeriesCoefficient[Exp[n x] ArcTan[x], {x, 0, n}], {n, 0, 19}]
    Join[{0}, Table[n^n (HypergeometricPFQ[{1, 1, 1 - n}, {2}, -(I/n)] + HypergeometricPFQ[{1, 1, 1 - n}, {2}, I/n])/2, {n, 19}]]

Formula

a(n) ~ arctan(1) * n^n. - Vaclav Kotesovec, Jun 09 2019
a(n) = Sum_{k=1..n, k odd} (-1)^((k-1)/2)*binomial(n,k)*(k-1)!*n^(n-k). - Fabian Pereyra, Oct 05 2024
Showing 1-3 of 3 results.