A258459 -id:A258459 - cp's OEIS frontend

A100221 Decimal expansion of Product_{k>=1} (1-1/4^k).

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

Offset: 0

Eric W. Weisstein, Nov 09 2004

			0.68853753712033971545651435729350818467554981937833...

G. C. Greubel, Table of n, a(n) for n = 0..1200
Richard J. McIntosh, Some Asymptotic Formulae for q-Hypergeometric Series, Journal of the London Mathematical Society, Vol. 51, No. 1 (1995), pp. 120-136; alternative link.
Eric Weisstein's World of Mathematics, Infinite Product.
Eric Weisstein's World of Mathematics, q-Pochhammer Symbol.

Cf. A027637, A048651, A100220, A100222.

Cf. A000203, A132020, A132034, A132035, A132036, A132037, A132038, A258459.

EllipticThetaPrime[1, 0, 1/2]^(1/3)/2^(1/4)
N[QPochhammer[1/4]] (* G. C. Greubel, Nov 30 2015 *)
RealDigits[Fold[Times,1-1/4^Range[1000]],10,110][[1]] (* Harvey P. Dale, Sep 27 2024 *)

prodinf(x=1, 1-1/4^x) \\ Altug Alkan, Dec 01 2015

Equals exp(-Sum_{k>0} sigma_1(k)/(k*4^k)) where sigma_1() is A000203(). - Hieronymus Fischer, Aug 07 2007
Equals (1/4; 1/4){infinity}, where (a;q){infinity} is the q-Pochhammer symbol. - G. C. Greubel, Nov 30 2015
From Amiram Eldar, May 09 2023: (Start)
Equals sqrt(Pi/log(2)) * exp(log(2)/12 - Pi^2/(12*log(2))) * Product_{k>=1} (1 - exp(-2*k*Pi^2/log(2))) (McIntosh, 1995).
Equals Sum_{n>=0} (-1)^n/A027637(n). (End)

A256130 Number T(n,k) of partitions of n into parts of exactly k sorts which are introduced in ascending order; triangle T(n,k), n>=0, 0<=k<=n, read by rows.

Original entry on oeis.org

1, 0, 1, 0, 2, 1, 0, 3, 4, 1, 0, 5, 12, 7, 1, 0, 7, 30, 33, 11, 1, 0, 11, 72, 130, 77, 16, 1, 0, 15, 160, 463, 438, 157, 22, 1, 0, 22, 351, 1557, 2216, 1223, 289, 29, 1, 0, 30, 743, 5031, 10422, 8331, 2957, 492, 37, 1, 0, 42, 1561, 15877, 46731, 52078, 26073, 6401, 788, 46, 1

Offset: 0

Alois P. Heinz, Mar 15 2015

In general, column k>1 is asymptotic to c*k^n, where c = 1/(k!*Product_{n>=1} (1-1/k^n)) = 1/(k!*QPochhammer[1/k, 1/k]). - Vaclav Kotesovec, Jun 01 2015

			T(3,1) = 3: 1a1a1a, 2a1a, 3a.
T(3,2) = 4: 1a1a1b, 1a1b1a, 1a1b1b, 2a1b.
T(3,3) = 1: 1a1b1c.
Triangle T(n,k) begins:
  1;
  0,  1;
  0,  2,    1;
  0,  3,    4,     1;
  0,  5,   12,     7,     1;
  0,  7,   30,    33,    11,     1;
  0, 11,   72,   130,    77,    16,     1;
  0, 15,  160,   463,   438,   157,    22,    1;
  0, 22,  351,  1557,  2216,  1223,   289,   29,   1;
  0, 30,  743,  5031, 10422,  8331,  2957,  492,  37,  1;
  0, 42, 1561, 15877, 46731, 52078, 26073, 6401, 788, 46,  1;
  ...

Alois P. Heinz, Rows n = 0..140, flattened

Columns k=0-10 give: A000007, A000041 (for n>0), A258457, A258458, A258459, A258460, A258461, A258462, A258463, A258464, A258465.
Row sums give A258466.
T(2n,n) give A258467.
Cf. A000142, A246935, A255970, A262495, A319730.

b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<1, 0,
      b(n, i-1, k) +`if`(i>n, 0, k*b(n-i, i, k))))
    end:
T:= (n, k)-> add(b(n$2, k-i)*(-1)^i/(i!*(k-i)!), i=0..k):
seq(seq(T(n, k), k=0..n), n=0..10);

b[n_, i_, k_] := b[n, i, k] = If[n==0, 1, If[i<1, 0, b[n, i-1, k] + If[i>n, 0, k*b[n-i, i, k]]]]; T[n_, k_] := Sum[b[n, n, k-i]*(-1)^i/(i!*(k-i)!), {i, 0, k}]; Table[Table[T[n, k], {k, 0, n}], {n, 0, 10}] // Flatten (* Jean-François Alcover, Feb 21 2016, after Alois P. Heinz *)

T(n,k) = A255970(n,k)/k! = (Sum_{i=0..k} (-1)^i * C(k,i) * A246935(n,k-i)) / A000142(k).

A320546 Number of partitions of n into parts of exactly four sorts which are introduced in ascending order such that sorts of adjacent parts are different.

Original entry on oeis.org

1, 7, 33, 130, 464, 1558, 5039, 15886, 49282, 151165, 460352, 1394863, 4212752, 12694566, 38197710, 114820403, 344919283, 1035670246, 3108844526, 9330186438, 27997888759, 84008273161, 252054096569, 756220672185, 2268778953179, 6806570182252, 20420177671614

Offset: 4

Alois P. Heinz, Oct 15 2018

nonn

Alois P. Heinz, Table of n, a(n) for n = 4..1000

Column k=4 of A262495.

Cf. A258459.

b:= proc(n, i, k) option remember; `if`(n=0 or i=1, k^(n-1),
      b(n, i-1, k) +`if`(i>n, 0, k*b(n-i, i, k)))
    end:
A:= (n, k)-> `if`(n=0, 1, `if`(k<2, k, k*b(n$2, k-1))):
a:= n-> (k-> add(A(n, k-i)*(-1)^i/(i!*(k-i)!), i=0..k))(4):
seq(a(n), n=4..40);

b[n_, i_, k_] := b[n, i, k] = If[n == 0 || i == 1, k^(n - 1), b[n, i - 1, k] + If[i > n, 0, k b[n - i, i, k]]];
A[n_, k_] := If[n == 0, 1, If[k < 2, k, k b[n, n, k - 1]]];
a[n_] := With[{k = 4}, Sum[A[n, k - i] (-1)^i/(i! (k - i)!), {i, 0, k}]];
a /@ Range[4, 40] (* Jean-François Alcover, Dec 08 2020, after Alois P. Heinz *)

a(n) ~ 3^(n-1) / (3! * QPochhammer[1/3]). - Vaclav Kotesovec, Oct 25 2018

cp's OEIS Frontend

A100221 Decimal expansion of Product_{k>=1} (1-1/4^k).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A256130 Number T(n,k) of partitions of n into parts of exactly k sorts which are introduced in ascending order; triangle T(n,k), n>=0, 0<=k<=n, read by rows.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A320546 Number of partitions of n into parts of exactly four sorts which are introduced in ascending order such that sorts of adjacent parts are different.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula