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.

A364075 Antidiagonal sums of A364074.

Original entry on oeis.org

1, 3, 15, 190, 6410, 715632, 329228397, 642643955573, 5397009875581209, 229445611563324949690, 42191138284027801530473000, 46655044099184540456537140765334, 234194471368188917606391033927435435145, 7541601159871173209667556247111598350602865715, 1286007207921675504103355843697108982290866195893407427
Offset: 2

Views

Author

Stefano Spezia, Jul 04 2023

Keywords

Crossrefs

Cf. A364074.

Programs

  • Mathematica
    A[m_,n_]:=Sum[Sum[Binomial[n,d]StirlingS2[n-d,i](m^(m-1)-1)^(n-d-i),{d,0,n-i}],{i,0,n}]; a[n_]=Sum[A[n-m+1,m],{m,0,n-2}]; Array[a,15,2]

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).
Showing 1-3 of 3 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.