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-6 of 6 results.

A081128 12th binomial transform of (0,1,0,0,0,0,0,0,...).

Original entry on oeis.org

0, 1, 24, 432, 6912, 103680, 1492992, 20901888, 286654464, 3869835264, 51597803520, 681091006464, 8916100448256, 115909305827328, 1497904875307008, 19258776968232960, 246512345193381888
Offset: 0

Views

Author

Paul Barry, Mar 07 2003

Keywords

Crossrefs

Programs

Formula

a(n) = 24*a(n-1) - 132*a(n-2), a(0)=0, a(1)=1.
a(n) = n*12^(n-1).
G.f.: x/(1-12*x)^2.
From Amiram Eldar, Oct 28 2020: (Start)
Sum_{n>=1} 1/a(n) = 12*log(12/11).
Sum_{n>=1} (-1)^(n+1)/a(n) = 12*log(13/12). (End)
E.g.f.: x*exp(12*x). - G. C. Greubel, Jan 16 2024

A104002 Triangle T(n,k) read by rows: number of permutations in S_n avoiding all k-length patterns that start with 1 except one fixed pattern and containing it exactly once.

Original entry on oeis.org

1, 2, 1, 3, 4, 1, 4, 12, 6, 1, 5, 32, 27, 8, 1, 6, 80, 108, 48, 10, 1, 7, 192, 405, 256, 75, 12, 1, 8, 448, 1458, 1280, 500, 108, 14, 1, 9, 1024, 5103, 6144, 3125, 864, 147, 16, 1, 10, 2304, 17496, 28672, 18750, 6480, 1372, 192, 18, 1, 11, 5120, 59049, 131072
Offset: 2

Views

Author

Ralf Stephan, Feb 26 2005

Keywords

Comments

T(n+k,k+1) = total number of occurrences of any given letter in all possible n-length words on a k-letter alphabet. For example, with the 2 letter alphabet {0,1} there are 4 possible 2-length words: {00,01,10,11}. The letter 0 occurs 4 times altogether, as does the letter 1. T(4,3) = 4. - Ross La Haye, Jan 03 2007
Table T(n,k) = k*n^(k-1) n,k > 0 read by antidiagonals. - Boris Putievskiy, Dec 17 2012

Examples

			Triangle begins:
  1;
  2,   1;
  3,   4,    1;
  4,  12,    6,    1;
  5,  32,   27,    8,   1;
  6,  80,  108,   48,  10,   1;
  7, 192,  405,  256,  75,  12,  1;
  8, 448, 1458, 1280, 500, 108, 14, 1;
		

Crossrefs

Programs

  • Mathematica
    Table[(n - k + 1) (k - 1)^(n - k), {n, 2, 12}, {k, 2, n}] // Flatten (* Michael De Vlieger, Aug 22 2018 *)

Formula

T(n, k) = (n-k+1) * (k-1)^(n-k), k<=n.
As a linear array, the sequence is a(n) = A004736(n)*A002260(n)^(A004736(n)-1) or a(n) = ((t*t+3*t+4)/2-n)*(n-(t*(t+1)/2))^((t*t+3*t+4)/2-n-1), where t=floor((-1+sqrt(8*n-7))/2). - Boris Putievskiy, Dec 17 2012

A230539 a(n) = 3*n*2^(3*n-1).

Original entry on oeis.org

0, 12, 192, 2304, 24576, 245760, 2359296, 22020096, 201326592, 1811939328, 16106127360, 141733920768, 1236950581248, 10720238370816, 92358976733184, 791648371998720, 6755399441055744, 57420895248973824, 486388759756013568, 4107282860161892352
Offset: 0

Views

Author

Bruno Berselli, Oct 23 2013

Keywords

Comments

Arithmetic derivative of 8^n: a(n) = A003415(8^n).
Sum of reciprocals of a(n), for n>0: (2/3)*log(8/7).

Crossrefs

Cf. arithmetic derivative of k^n: A001787 (k=2), A027471 (k=3), A018215 (k=4), A053464 (k=5), A212700 (k=6), A027473 (k=7), this sequence, A230540 (k=9), A085708 (k=10), A081127 (k=11).
Row n=8 of A258997.

Programs

  • Magma
    [3*n*2^(3*n-1): n in [0..20]];
    
  • Maple
    A230539:=n->3*n*2^(3*n-1): seq(A230539(n), n=0..30); # Wesley Ivan Hurt, May 03 2017
  • Mathematica
    Table[3 n 2^(3 n - 1), {n,0,20}]
    LinearRecurrence[{16,-64},{0,12},20] (* Harvey P. Dale, Dec 25 2022 *)
  • PARI
    a(n) = 3*n*2^(3*n-1); \\ Michel Marcus, Oct 23 2013

Formula

G.f.: 12*x/(1-8*x)^2.
a(n) = 12*A053539(n).

A230540 a(n) = 2*n*3^(2*n-1).

Original entry on oeis.org

0, 6, 108, 1458, 17496, 196830, 2125764, 22320522, 229582512, 2324522934, 23245229340, 230127770466, 2259436291848, 22029503845518, 213516729579636, 2058911320946490, 19765548681086304, 189008059262887782, 1801135623563989452, 17110788423857899794
Offset: 0

Views

Author

Bruno Berselli, Oct 23 2013

Keywords

Comments

Arithmetic derivative of 9^n: a(n) = A003415(9^n).
Sum of reciprocals of a(n), for n>0: (3/2)*log(9/8).

Crossrefs

Cf. arithmetic derivative of k^n: A001787 (k=2), A027471 (k=3), A018215 (k=4), A053464 (k=5), A212700 (k=6), A027473 (k=7), A230539 (k=8), this sequence, A085708 (k=10), A081127 (k=11).

Programs

  • Magma
    [2*n*3^(2*n-1): n in [0..20]];
    
  • Mathematica
    Table[2 n 3^(2 n - 1), {n, 0, 20}]
  • PARI
    a(n) = 2*n*3^(2*n-1); \\ Michel Marcus, Oct 23 2013

Formula

G.f.: 6*x/(1-9*x)^2.
a(n) = 6*A053540(n), with A053540(0)=0.

A218018 Triangle, read by rows, where T(n,k) = k!*C(n, k)*11^(n-k) for n>=0, k=0..n.

Original entry on oeis.org

1, 11, 1, 121, 22, 2, 1331, 363, 66, 6, 14641, 5324, 1452, 264, 24, 161051, 73205, 26620, 7260, 1320, 120, 1771561, 966306, 439230, 159720, 43560, 7920, 720, 19487171, 12400927, 6764142, 3074610, 1118040, 304920, 55440, 5040, 214358881
Offset: 0

Views

Author

Vincenzo Librandi, Nov 17 2012

Keywords

Comments

Triangle formed by the derivatives of x^n evaluated at x=11. Also:
first column: A001020;
second column: A081127;
third column: 2*A081141.

Examples

			Triangle begins:
1;
11,       1;
121,      22,       2;
1331,     363,      66,      6;
14641,    5324,     1452,    264,     24;
161051,   73205,    26620,   7260,    1320,    120;
1771561,  966306,   439230,  159720,  43560,   7920,   720;
19487171, 12400927, 6764142, 3074610, 1118040, 304920, 55440, 5040; etc.
		

Crossrefs

Programs

  • Magma
    [Factorial(n)/Factorial(n-k)*11^(n-k): k in [0..n], n in [0..10]];
  • Mathematica
    Flatten[Table[n!/(n-k)! * 11^(n-k), {n, 0, 10}, {k, 0, n}]]

Formula

T(n,k) = 11^(n-k)*n!/(n-k)! for n>=0, k=0..n.
E.g.f. (by columns): exp(11*x)*x^k.

A320531 T(n,k) = n*k^(n - 1), k > 0, with T(n,0) = A063524(n), square array read by antidiagonals upwards.

Original entry on oeis.org

0, 1, 0, 0, 1, 0, 0, 2, 1, 0, 0, 3, 4, 1, 0, 0, 4, 12, 6, 1, 0, 0, 5, 32, 27, 8, 1, 0, 0, 6, 80, 108, 48, 10, 1, 0, 0, 7, 192, 405, 256, 75, 12, 1, 0, 0, 8, 448, 1458, 1280, 500, 108, 14, 1, 0, 0, 9, 1024, 5103, 6144, 3125, 864, 147, 16, 1, 0, 0, 10, 2304
Offset: 0

Views

Author

Keywords

Comments

T(n,k) is the number of length n*k binary words of n consecutive blocks of length k, respectively, one of the blocks having exactly k letters 1, and the other having exactly one letter 0. First column follows from the next definition.
In Kauffman's language, T(n,k) is the total number of Jordan trails that are obtained by placing state markers at the crossings of the Pretzel universe P(k, k, ..., k) having n tangles, of k half-twists respectively. In other words, T(n,k) is the number of ways of splitting the crossings of the Pretzel knot shadow P(k, k, ..., k) such that the final diagram is a single Jordan curve. The aforementionned binary words encode these operations by assigning each tangle a length k binary words with the adequate choice for splitting the crossings.
Columns are linear recurrence sequences with signature (2*k, -k^2).

Examples

			Square array begins:
    0, 0,   0,    0,     0,      0,      0,      0, ...
    1, 1,   1,    1,     1,      1,      1,      1, ...
    0, 2,   4,    6,     8,     10,     12,     14, ... A005843
    0, 3,  12,   27,    48,     75,    108,    147, ... A033428
    0, 4,  32,  108,   256,    500,    864,   1372, ... A033430
    0, 5,  80,  405,  1280,   3125,   6480,  12005, ... A269792
    0, 6, 192, 1458,  6144,  18750,  46656, 100842, ...
    0, 7, 448, 5103, 28672, 109375, 326592, 823543, ...
    ...
T(3,2) = 3*2^(3 - 1) = 12. The corresponding binary words are 110101, 110110, 111001, 111010, 011101, 011110, 101101, 101110, 010111, 011011, 100111, 101011.
		

References

  • Louis H. Kauffman, Formal Knot Theory, Princeton University Press, 1983.

Crossrefs

Antidiagonal sums: A101495.
Column 1 is column 2 of A300453.
Column 2 is column 1 of A300184.

Programs

  • Mathematica
    T[n_, k_] = If [k > 0, n*k^(n - 1), If[k == 0 && n == 1, 1, 0]];
    Table[Table[T[n - k, k], {k, 0, n}], {n, 0, 12}]//Flatten
  • Maxima
    T(n, k) := if k > 0 then n*k^(n - 1) else if k = 0 and n = 1 then 1 else 0$
    tabl(nn) := for n:0 thru nn do print(makelist(T(n, k), k, 0, nn))$

Formula

T(n,k) = (2*k)*T(n-1,k) - (k^2)*T(n-2,k).
G.f. for columns: x/(1 - k*x)^2.
E.g.f. for columns: x*exp(k*x).
T(n,1) = A001477(n).
T(n,2) = A001787(n).
T(n,3) = A027471(n+1).
T(n,4) = A002697(n).
T(n,5) = A053464(n).
T(n,6) = A053469(n), n > 0.
T(n,7) = A027473(n), n > 0.
T(n,8) = A053539(n).
T(n,9) = A053540(n), n > 0.
T(n,10) = A053541(n), n > 0.
T(n,11) = A081127(n).
T(n,12) = A081128(n).
Showing 1-6 of 6 results.