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.

Previous Showing 11-14 of 14 results.

A355113 Expansion of e.g.f. 5 / (6 - 5*x - exp(5*x)).

Original entry on oeis.org

1, 2, 13, 133, 1779, 29565, 589705, 13728695, 365295695, 10934634985, 363678872325, 13305294463275, 531030788556475, 22960273845453725, 1069101897816615425, 53336480697298243375, 2838300249311563302375, 160480124820425410172625, 9607441647405962075600125
Offset: 0

Views

Author

Ilya Gutkovskiy, Jun 19 2022

Keywords

Crossrefs

Cf. A003577, A006155, A094418, A355110, A355111, A355112, A355114.

Programs

  • Mathematica
    nmax = 18; CoefficientList[Series[5/(6 - 5 x - Exp[5 x]), {x, 0, nmax}], x] Range[0, nmax]!
a[0] = 1; a[n_] := a[n] = n a[n - 1] + Sum[Binomial[n, k] 5^(k - 1) a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 18}]

Formula

a(0) = 1; a(n) = n * a(n-1) + Sum_{k=1..n} binomial(n,k) * 5^(k-1) * a(n-k).
a(n) ~ n! / ((1 + LambertW(exp(6))) * ((6 - LambertW(exp(6)))/5)^(n+1)). - Vaclav Kotesovec, Jun 19 2022

A364069 Dowling numbers: e.g.f. exp(x + (exp(b*x)-1)/b) with b = 63.

Original entry on oeis.org

1, 2, 67, 4355, 295234, 21036803, 1625419909, 140823067772, 13947448935109, 1570142163116087, 196457384808738412, 26717651072732512841, 3896182904620308595021, 605803757139146097600266, 100236348400243756326661039, 17619174544126256877550593743, 3280792242500933388439611444802
Offset: 0

Views

Author

Stefano Spezia, Jul 04 2023

Keywords

Comments

a(n) is the number of all 64-subgroups of R^n, where R^n is a near-vector space over a proper nearfield R.

Links

Crossrefs

Cf. A000110 (b=1), A007405 (b=2), A003575 (b=3), A003576 (b=4), A003577 (b=5), A003578 (b=6), A003579 (b=7), A003580 (b=8), A003581 (b=9), A003582 (b=10), A364070 (b=624).
Row sums of the triangle A364072.
2nd row of the array A364074.

Programs

  • Mathematica
    With[{m=16, b=63}, CoefficientList[Series[Exp[x +(Exp[b*x]-1)/b], {x, 0, m}], x]*Range[0, m]!] (* or *)
a[n_]:=Sum[Sum[Binomial[n,d]StirlingS2[n-d,k]63^(n-d-k),{d,0,n-k}],{k,0,n}]; Array[a,17,0]

Formula

E.g.f.: exp(x + (exp(63*x) - 1)/63).
a(n) = exp(-1/63) * Sum_{k>=0} (63*k + 1)^n / (63^k * k!).
a(n) ~ 63^(n + 1/63) * n^(n + 1/63) * exp(n/LambertW(63*n) - n - 1/63) / (sqrt(1 + LambertW(63*n)) * LambertW(63*n)^(n + 1/63)).
a(n) = Sum_{k=0..n} Sum_{d=0..n-k} binomial(n, d)*StirlingS2(n-d, k)*63^(n-d-k).

A364070 Dowling numbers: e.g.f. exp(x + (exp(b*x)-1)/b) with b=624.

Original entry on oeis.org

1, 2, 628, 393128, 247268752, 156500388128, 100264147266880, 65739252669562496, 44949841635462426880, 32961816599696140935680, 26763226019573589904012288, 24577197816669853786615064576, 25455086256328481246829666144256, 29063231104986184254344094194278400
Offset: 0

Views

Author

Stefano Spezia, Jul 04 2023

Keywords

Comments

a(n) is the number of all 625-subgroups of R^n, where R^n is a near-vector space over a proper nearfield R.

Links

Crossrefs

Cf. A000110 (b=1), A007405 (b=2), A003575 (b=3), A003576 (b=4), A003577 (b=5), A003578 (b=6), A003579 (b=7), A003580 (b=8), A003581 (b=9), A003582 (b=10), A364069 (b=63).
Row sums of the triangle A364073.
3rd row of the array A364074.

Programs

  • Mathematica
    With[{m=13, b=624}, CoefficientList[Series[Exp[x +(Exp[b*x]-1)/b], {x, 0, m}], x]*Range[0, m]!] (* or *)
a[n_]:=Sum[Sum[Binomial[n,d]StirlingS2[n-d,k]624^(n-d-k),{d,0,n-k}],{k,0,n}]; Array[a,14,0]

Formula

E.g.f.: exp(x + (exp(624*x) - 1)/624).
a(n) = exp(-1/624) * Sum_{k>=0} (624*k + 1)^n / (624^k * k!).
a(n) ~ 624^(n + 1/624) * n^(n + 1/624) * exp(n/LambertW(624*n) - n - 1/624) / (sqrt(1 + LambertW(624*n)) * LambertW(624*n)^(n + 1/624)).
a(n) = Sum_{k=0..n} Sum_{d=0..n-k} binomial(n, d)*StirlingS2(n-d, k)*624^(n-d-k).

A334165 Square array A(n,k), n >= 0, k >= 1, read by antidiagonals: A(n,k) = exp(-1/k) * Sum_{j>=0} (k*j + 1)^n / (k^j * j!).

Original entry on oeis.org

1, 1, 2, 1, 2, 5, 1, 2, 6, 15, 1, 2, 7, 24, 52, 1, 2, 8, 35, 116, 203, 1, 2, 9, 48, 214, 648, 877, 1, 2, 10, 63, 352, 1523, 4088, 4140, 1, 2, 11, 80, 536, 3008, 12349, 28640, 21147, 1, 2, 12, 99, 772, 5307, 29440, 112052, 219920, 115975, 1, 2, 13, 120, 1066, 8648, 60389, 324096, 1120849, 1832224, 678570
Offset: 0

Views

Author

Ilya Gutkovskiy, Apr 17 2020

Keywords

Comments

Square array of Dowling numbers.

Examples

			Square array begins:
    1,    1,     1,     1,     1,     1,  ...
    2,    2,     2,     2,     2,     2,  ...
    5,    6,     7,     8,     9,    10,  ...
   15,   24,    35,    48,    63,    80,  ...
   52,  116,   214,   352,   536,   772,  ...
  203,  648,  1523,  3008,  5307,  8648,  ...

Links

Crossrefs

Columns k=1..10 give A000110 (for n > 0), A007405, A003575, A003576, A003577, A003578, A003579, A003580, A003581, A003582.
Cf. A241578, A241579, A334162 (diagonal).

Programs

  • Mathematica
    Table[Function[k, SeriesCoefficient[1/(1 - x) Sum[(x/(1 - x))^j/Product[(1 - k i x/(1 - x)), {i, 1, j}], {j, 0, n}], {x, 0, n}]][m - n + 1], {m, 0, 10}, {n, 0, m}] // Flatten
Table[Function[k, n! SeriesCoefficient[Exp[x + (Exp[k x] - 1)/k], {x, 0, n}]][m - n + 1], {m, 0, 10}, {n, 0, m}] // Flatten

Formula

G.f. of column k: (1/(1 - x)) * Sum_{j>=0} (x/(1 - x))^j / Product_{i=1..j} (1 - k*i*x/(1 - x)).
E.g.f. of column k: exp(x + (exp(k*x) - 1) / k).
Previous Showing 11-14 of 14 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.