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.

A350889 Triangle T(n,k), n >= 1, 1 <= k <= n, read by rows, where T(n,k) is the number of partitions of n such that k*(smallest part) = (number of parts).

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 3, 3, 2, 1, 1, 1, 2, 3, 4, 3, 2, 1, 1, 2, 2, 4, 5, 5, 3, 2, 1, 1, 2, 3, 4, 7, 6, 5, 3, 2, 1, 1, 3, 4, 5, 8, 9, 7, 5, 3, 2, 1, 1, 3, 5, 6, 10, 11, 10, 7, 5, 3, 2, 1, 1, 4, 6, 7, 12, 15, 13, 11, 7, 5, 3, 2, 1, 1, 4, 8, 8, 14, 18, 18, 14, 11, 7, 5, 3, 2, 1, 1
Offset: 1

Views

Author

Seiichi Manyama, Jan 21 2022

Keywords

Comments

Column k is asymptotic to r^2 * (k*log(r)^2 + polylog(2, r^2))^(1/4) * exp(2*sqrt((k*log(r)^2 + polylog(2, r^2))*n)) / (2*sqrt(Pi*k*(k - (k-2)*r^2)) * n^(3/4)), where r is the positive real root of the equation r^2 = 1 - r^k. - Vaclav Kotesovec, Oct 14 2024

Examples

			Triangle begins:
  1;
  0, 1;
  0, 1, 1;
  1, 1, 1, 1;
  1, 1, 2, 1, 1;
  1, 1, 2, 2, 1, 1;
  1, 1, 3, 3, 2, 1, 1;
  1, 2, 3, 4, 3, 2, 1, 1;
  2, 2, 4, 5, 5, 3, 2, 1, 1;
  2, 3, 4, 7, 6, 5, 3, 2, 1, 1;
  3, 4, 5, 8, 9, 7, 5, 3, 2, 1, 1;
		

Crossrefs

Row sums give A168657.

Programs

  • PARI
    T(n, k) = polcoef(sum(i=1, sqrtint(n\k), x^(k*i^2)/prod(j=1, k*i-1, 1-x^j+x*O(x^n))), n);
    
  • Ruby
    def partition(n, min, max)
      return [[]] if n == 0
      [max, n].min.downto(min).flat_map{|i| partition(n - i, min, i).map{|rest| [i, *rest]}}
    end
    def A(n)
      a = Array.new(n, 0)
      partition(n, 1, n).each{|ary|
        (1..n).each{|i|
          a[i - 1] += 1 if i * ary[-1] == ary.size
        }
      }
      a
    end
    def A350889(n)
      (1..n).map{|i| A(i)}.flatten
    end
    p A350889(14)

Formula

G.f. of column k: Sum_{i>=1} x^(k*i^2)/Product_{j=1..k*i-1} (1-x^j).

A376658 Decimal expansion of a constant related to the asymptotics of A376624 and A376625.

Original entry on oeis.org

8, 4, 6, 0, 1, 8, 7, 2, 4, 4, 2, 5, 2, 9, 6, 4, 8, 0, 9, 7, 5, 2, 3, 0, 0, 0, 9, 8, 8, 8, 9, 1, 7, 5, 9, 4, 3, 3, 5, 4, 7, 0, 6, 3, 5, 9, 5, 1, 0, 1, 4, 3, 6, 7, 6, 2, 2, 8, 2, 1, 1, 5, 8, 9, 0, 4, 3, 2, 1, 4, 9, 8, 2, 7, 8, 2, 6, 0, 7, 4, 4, 5, 0, 9, 6, 6, 7, 2, 6, 4, 2, 9, 6, 3, 0, 6, 8, 0, 4, 9, 8, 4, 4, 5, 7
Offset: 1

Views

Author

Vaclav Kotesovec, Oct 01 2024

Keywords

Examples

			8.46018724425296480975230009888917594335470635951014367622821158904321498...
		

Crossrefs

Programs

  • Mathematica
    RealDigits[E^(Sqrt[2*Log[r]^2 + 4*PolyLog[2, Sqrt[r]]]) /. r -> 1/(2*Sqrt[3/(4 + ((155 - 3*Sqrt[849])/2)^(1/3) + ((155 + 3*Sqrt[849])/2)^(1/3))]) - Sqrt[8/3 - ((155 - 3*Sqrt[849])/2)^(1/3)/3 - ((155 + 3*Sqrt[849])/2)^(1/3)/3 + 2*Sqrt[3/(4 + ((155 - 3*Sqrt[849])/2)^(1/3) + ((155 + 3*Sqrt[849])/2)^(1/3))]]/2, 10, 105][[1]]

Formula

Equals exp(sqrt(2*(log(r)^2 + 2*polylog(2, sqrt(r))))), where r = A072223 = 0.52488859865640479389948613854128391569... is the smallest real root of the equation (1 - r^2)^2 = r.
Equals limit_{n->infinity} A376624(n)^(1/sqrt(n)).
Equals limit_{n->infinity} A376625(n)^(1/sqrt(n)).
Equals limit_{n->infinity} A377075(n)^(1/sqrt(n)).
Equals exp(2*sqrt(2*log(A356032)^2 + polylog(2, A356032))).
Showing 1-2 of 2 results.