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.

A335843 a(n) is the number of n-digit positive integers with exactly two distinct base 10 digits.

Original entry on oeis.org

0, 81, 243, 567, 1215, 2511, 5103, 10287, 20655, 41391, 82863, 165807, 331695, 663471, 1327023, 2654127, 5308335, 10616751, 21233583, 42467247, 84934575, 169869231, 339738543, 679477167, 1358954415, 2717908911, 5435817903, 10871635887, 21743271855, 43486543791
Offset: 1

Views

Author

Stefano Spezia, Jul 18 2020

Keywords

Comments

a(n) is the number of n-digit numbers in A031955.

Examples

			a(1) = 0 since the positive integers must have at least two digits;
a(2) = 81 since #[99] - #[9] - #(11*[9]) = 99 - 9 - 9 = 81;
a(3) = 243 since #[999] - #[99] - #(111*[9]) - #{xyz in N | x,y,z are three different digits with x != 0} = 999 - 99 - 9 - 9*9*8 = 243;
...

Links

Crossrefs

Cf. A000225, A031955, A337127, A337313.
Cf. A055642, A235154, A235690, A235717.

Programs

  • Mathematica
    LinearRecurrence[{3,-2},{0,81},31]
  • PARI
    concat([0],Vec(81*x^2/(1-3*x+2*x^2)+O(x^31)))

Formula

O.g.f.: 81*x^2/(1 - 3*x + 2*x^2).
E.g.f.: 81*(exp(x) - 1)^2/2.
a(n) = 3*a(n-1) - 2*a(n-2) for n > 2.
a(n) = 81*(2^(n-1) - 1).
a(n) = 81*A000225(n-1).

Extensions

a(0) removed by Stefano Spezia, Sep 23 2020

A337127 Table with 10 columns read by rows: T(n, k) is the number of n-digit positive integers with exactly k distinct base 10 digits (0 < k <= 10).

Original entry on oeis.org

9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 81, 0, 0, 0, 0, 0, 0, 0, 0, 9, 243, 648, 0, 0, 0, 0, 0, 0, 0, 9, 567, 3888, 4536, 0, 0, 0, 0, 0, 0, 9, 1215, 16200, 45360, 27216, 0, 0, 0, 0, 0, 9, 2511, 58320, 294840, 408240, 136080, 0, 0, 0, 0, 9, 5103, 195048, 1587600, 3810240, 2857680, 544320, 0, 0, 0
Offset: 1

Views

Author

Stefano Spezia, Aug 17 2020

Keywords

Examples

			The table T(n, k) begins:
9     0      0       0       0       0  0  0  0  0
9    81      0       0       0       0  0  0  0  0
9   243    648       0       0       0  0  0  0  0
9   567   3888    4536       0       0  0  0  0  0
9  1215  16200   45360   27216       0  0  0  0  0
9  2511  58320  294840  408240  136080  0  0  0  0
...

Links

Crossrefs

Cf. A010785, A031955, A031962, A031969, A031987, A116670, A171102, A218019, A219743, A220076.
Cf. A010734, A048993, A052268 (row sums), A073531 (diagonal), A180599 (k = 1), A335843 (k = 2), A337313 (k = 3).

Programs

  • Mathematica
    T[n_,k_]:=9Pochhammer[11-k,k-1]/k!*n!*Coefficient[Series[(Exp[x]-1)^k,{x,0,n}],x,n]; Table[T[n,k],{n,7},{k,10}]//Flatten

Formula

T(n, k) = 9*Pochhammer(11-k, k-1)*n! * [x^n] (exp(x) - 1)^k/k!.
T(n, k) = 9*Pochhammer(11-k, k-1) * [x^n] x^k/Product_{j=1..k} (1-j*x).
T(n, k) = 9*Pochhammer(11-k, k-1)*S2(n, k) where S2(n, k) = A048993(n, k) are the Stirling numbers of the 2nd kind.

A337314 a(n) is the number of n-digit positive integers with exactly four distinct base 10 digits.

Original entry on oeis.org

0, 0, 0, 4536, 45360, 294840, 1587600, 7715736, 35244720, 154700280, 661122000, 2773768536, 11487556080, 47136955320, 192126589200, 779279814936, 3149513947440, 12695388483960, 51073849285200, 205172877726936, 823325141746800, 3301203837670200, 13228529919066000
Offset: 1

Views

Author

Stefano Spezia, Sep 26 2020

Keywords

Comments

a(n) is the number of n-digit numbers in A031969.

Examples

			a(1) = a(2) = a(3) = 0 since the positive integers must have at least four digits;
a(4) = #{wxyz in N | w,x,y,z are four different digits with w != 0} = A073531(4) = 4536;
a(5) = 45360 since #[99999] - #[9999] - #(11111*[9]) - A335843(5) - A337313(5) - #{vwxyz in N | v,w,x,y,z are five different digits with v != 0} = 99999 - 9999 - 9 - 1215 - 16200 - 9*9*8*7*6 = 45360;
...

Links

Crossrefs

Cf. A000079, A000244, A000302, A000453, A031969, A073531, A335843, A337313, A337127.
Cf. A055642, A180599, A235155, A235691, A235718.

Programs

  • Mathematica
    LinearRecurrence[{10,-35,50,-24},{0,0,0,4536},23]
  • PARI
    concat([0,0,0],Vec(4536*x^4/(1-10*x+35*x^2-50*x^3+24*x^4)+O(x^24)))

Formula

O.g.f.: 4536*x^4/(1 - 10*x + 35*x^2 - 50*x^3 + 24*x^4).
E.g.f.: 189*(exp(x) - 1)^4.
a(n) = 10*a(n-1) - 35*a(n-2) + 50*a(n-3) - 24*a(n-4) for n > 4.
a(n) = 4536*S2(n, 4) where S2(n, 4) = A000453(n).
a(n) = 189*(4^n - 4*3^n + 3*2^(n+1) - 4).
a(n) ~ 189 * 4^n.
a(n) = 189*(A000302(n) - 4*A000244(n) + 3*A000079(n+1) - 4).
a(n) = A337127(n, 4).
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.