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.

Previous Showing 11-20 of 41 results. Next

A093907 Number of elements in the n-th period of the periodic table as predicted by the Aufbau principle.

Original entry on oeis.org

2, 8, 8, 18, 18, 32, 32, 50, 50, 72, 72, 98, 98, 128, 128, 162, 162, 200, 200, 242, 242, 288, 288, 338, 338, 392, 392, 450, 450, 512, 512, 578, 578, 648, 648, 722, 722, 800, 800, 882, 882, 968, 968, 1058, 1058, 1152, 1152, 1250, 1250, 1352, 1352, 1458, 1458
Offset: 1

Views

Author

Guillermo Restrepo, May 26 2004

Keywords

Comments

Maximum number of electrons in the n-th shell of an atom. - Daniel Forgues, May 09 2011

Examples

			a(1) = 2: hydrogen and helium.
		

References

  • Restrepo, G. and Pachon, L., Pythagoras and the Periodic Table, Journal of Chemical Education, submitted, 2004.

Crossrefs

See A269510 for another version.

Programs

  • GAP
    List([1..60],n->(2*n+3+(-1)^n)^2/8); # Muniru A Asiru, Mar 18 2019
    
  • Magma
    [(2*n+3+(-1)^n)^2/8: n in [1..60]]; // Vincenzo Librandi, Mar 01 2016
    
  • Maple
    A093907:=n->(2*n+3+(-1)^n)^2/8: seq(A093907(n), n=1..100); # Wesley Ivan Hurt, Jan 10 2017
  • Mathematica
    Table[(2 n + 3 + (-1)^n)^2/8, {n, 60}] (* Bruno Berselli, Jun 03 2014 *)
  • PARI
    {for (n=1, 20000, a=2*floor((n+2)/2)^2; write("b093907.txt", n, " ", a); )} \\ Harry J. Smith, Jun 17 2009
    
  • Python
    from math import floor
    a = lambda n : 2*floor((n+2)/2)**2
    for i in range(1, 60):
        print("{}, ".format(a(i)), end="")
    # Christoph B. Kassir, Apr 06 2022

Formula

a(n) = 2*floor((n+2)/2)^2. - Leonardo Pachon (leaupaco(AT)yahoo.es), Jul 31 2004
From R. J. Mathar, Oct 04 2009: (Start)
a(n) = 2*A008794(n+2).
G.f.: 2*x*(1 + 3*x - x^3 - 2*x^2 + x^4)/((1 + x)^2*(1 - x)^3). (End)
a(n) = (2*n+3+(-1)^n)^2/8, from Luce ETIENNE. - Bruno Berselli, Jun 03 2014
E.g.f.: ((4 + 3*x + x^2)*cosh(x) + (1 + 5*x + x^2)*sinh(x))/2. - Stefano Spezia, Aug 13 2022

Extensions

More terms added by Harry J. Smith, Jun 17 2009
Definition clarified by Donghwi Park, Mar 01 2016

A195152 Square array read by antidiagonals with T(n,k) = n*((k+2)*n-k)/2, n=0, +- 1, +- 2,..., k>=0.

Original entry on oeis.org

0, 1, 0, 1, 1, 0, 4, 2, 1, 0, 4, 5, 3, 1, 0, 9, 7, 6, 4, 1, 0, 9, 12, 10, 7, 5, 1, 0, 16, 15, 15, 13, 8, 6, 1, 0, 16, 22, 21, 18, 16, 9, 7, 1, 0, 25, 26, 28, 27, 21, 19, 10, 8, 1, 0, 25, 35, 36, 34, 33, 24, 22, 11, 9, 1, 0, 36, 40, 45, 46, 40, 39, 27, 25, 12, 10, 1, 0
Offset: 0

Views

Author

Omar E. Pol, Sep 14 2011

Keywords

Comments

Also, column k lists the partial sums of the column k of A195151. The first differences in row n are always the n-th term of the triangular numbers repeated 0,0,1,1,3,3,6,6,... ([0,0] together with A008805).
Also, for k >= 1, this is a table of generalized polygonal numbers since column k lists the generalized m-gonal numbers, where m = k+4, for example: if k = 1 then m = 5, so the column 1 lists the generalized pentagonal numbers A001318 (see example).

Examples

			Array begins:
.  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,...
.  1,   1,   1,   1,   1,   1,   1,   1,   1,   1,...
.  1,   2,   3,   4,   5,   6,   7,   8,   9,  10,...
.  4,   5,   6,   7,   8,   9,  10,  11,  12,  13,...
.  4,   7,  10,  13,  16,  19,  22,  25,  28,  31,...
.  9,  12,  15,  18,  21,  24,  27,  30,  33,  36,...
.  9,  15,  21,  27,  33,  39,  45,  51,  57,  63,...
. 16,  22,  28,  34,  40,  46,  52,  58,  64,  70,...
. 16,  26,  36,  46,  56,  66,  76,  86,  96, 106,...
. 25,  35,  45,  55,  65,  75,  85,  95, 105, 115,...
. 25,  40,  55,  70,  85, 100, 115, 130, 145, 160,...
...
		

Crossrefs

Column 0 gives A008794, except its first term.

Formula

T(n,k) = (k+2)*n*(n+1)/8+(k-2)*((2*n+1)*(-1)^n-1)/16, n >= 0 and k >= 0. - Omar E. Pol, Oct 01 2011

A211971 Column 0 of square array A211970 (in which column 1 is A000041).

Original entry on oeis.org

1, 1, 2, 4, 6, 10, 16, 24, 36, 54, 78, 112, 160, 224, 312, 432, 590, 802, 1084, 1452, 1936, 2568, 3384, 4440, 5800, 7538, 9758, 12584, 16160, 20680, 26376, 33520, 42468, 53644, 67552, 84832, 106246, 132706, 165344, 205512, 254824, 315256, 389168, 479368
Offset: 0

Views

Author

Omar E. Pol, Jun 10 2012

Keywords

Comments

Partial sums give A015128. - Omar E. Pol, Jan 09 2014

Crossrefs

Programs

  • Mathematica
    Flatten[{1, Differences[Table[Sum[PartitionsP[n-k]*PartitionsQ[k], {k, 0, n}], {n, 0, 60}]]}] (* Vaclav Kotesovec, Oct 25 2016 *)
    CoefficientList[Series[(1 - x)/EllipticTheta[4, 0, x], {x, 0, 43}], x] (* Robert G. Wilson v, Mar 06 2018 *)

Formula

a(n) ~ exp(Pi*sqrt(n))*Pi / (16*n^(3/2)) * (1 - (3/Pi + Pi/4)/sqrt(n) + (3/2 + 3/Pi^2+ Pi^2/24)/n). - Vaclav Kotesovec, Oct 25 2016, extended Nov 04 2016
G.f.: (1 - x)/theta_4(x), where theta_4() is the Jacobi theta function. - Ilya Gutkovskiy, Mar 05 2018

A211970 Square array read by antidiagonal: T(n,k), n >= 0, k >= 0, which arises from a generalization of Euler's Pentagonal Number Theorem.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 4, 2, 1, 1, 6, 3, 1, 1, 1, 10, 5, 2, 1, 1, 1, 16, 7, 3, 1, 1, 1, 1, 24, 11, 4, 2, 1, 1, 1, 1, 36, 15, 5, 3, 1, 1, 1, 1, 1, 54, 22, 7, 4, 2, 1, 1, 1, 1, 1, 78, 30, 10, 4, 3, 1, 1, 1, 1, 1, 1, 112, 42, 13, 5, 4, 2, 1, 1, 1, 1, 1, 1
Offset: 0

Views

Author

Omar E. Pol, Jun 10 2012

Keywords

Comments

In the infinite square array if k is positive then column k is related to the generalized m-gonal numbers, where m = k+4. For example: column 1 is related to the generalized pentagonal numbers A001318. Column 2 is related to the generalized hexagonal numbers A000217 (note that A000217 is also the entry for the triangular numbers). And so on...
In the following table Euler's Pentagonal Number Theorem is represented by the entries A001318, A195310, A175003 and A000041. It seems unusual that the partition numbers are located in a middle column (see below row 1 of the table):
========================================================
. Column k of
. this square
. Generalized Triangle Triangle array A211970
k m m-gonal "A" "B" [row sums of
. numbers triangle "B"
. (if k>=1) with a(0)=1,
. if k >= 0]
========================================================
...
It appears that column 2 of the square array is A006950.
It appears that column 3 of the square array is A036820.
The partial sums of column 0 give A015128. - Omar E. Pol, Feb 09 2014

Examples

			Array begins:
1,     1,   1,   1,   1,   1,  1,  1,  1,  1,  1, ...
1,     1,   1,   1,   1,   1,  1,  1,  1,  1,  1, ...
2,     2,   1,   1,   1,   1,  1,  1,  1,  1,  1, ...
4,     3,   2,   1,   1,   1,  1,  1,  1,  1,  1, ...
6,     5,   3,   2,   1,   1,  1,  1,  1,  1,  1, ...
10,    7,   4,   3,   2,   1,  1,  1,  1,  1,  1, ...
16,   11,   5,   4,   3,   2,  1,  1,  1,  1,  1, ...
24,   15,   7,   4,   4,   3,  2,  1,  1,  1,  1, ...
36,   22,  10,   5,   4,   4,  3,  2,  1,  1,  1, ...
54,   30,  13,   7,   4,   4,  4,  3,  2,  1,  1, ...
78,   42,  16,  10,   5,   4,  4,  4,  3,  2,  1, ...
112,  56,  21,  12,   7,   4,  4,  4,  4,  3,  2, ...
160,  77,  28,  14,  10,   5,  4,  4,  4,  4,  3, ...
224, 101,  35,  16,  12,   7,  4,  4,  4,  4,  4, ...
312, 135,  43,  21,  13,  10,  5,  4,  4,  4,  4, ...
432, 176,  55,  27,  14,  12,  7,  4,  4,  4,  4, ...
...
		

Crossrefs

For another version see A195825.

Formula

T(n,k) = A211971(n), if k = 0.
T(n,k) = A195825(n,k), if k >= 1.

A193580 Triangle read by rows: T(n,k) = number of ways to place k nonattacking kings on an n X n board.

Original entry on oeis.org

1, 1, 1, 1, 4, 1, 9, 16, 8, 1, 1, 16, 78, 140, 79, 1, 25, 228, 964, 1987, 1974, 978, 242, 27, 1, 1, 36, 520, 3920, 16834, 42368, 62266, 51504, 21792, 3600, 1, 49, 1020, 11860, 85275, 397014, 1220298, 2484382, 3324193, 2882737, 1601292, 569818, 129657, 18389, 1520, 64, 1
Offset: 0

Views

Author

Andrew Woods, Aug 27 2011

Keywords

Comments

Rows 2n and 2n-1 both contain 1 + n^2 entries. Cf. A008794.
Row n sums to A063443(n+1).
Number of walks of length n-1 on a graph in which each node represents a 11-avoiding n-bit binary sequence B and adjacency of B and B' is determined by B'&(B|(B<<1)|(B>>1))=0 and the total number of nonzero bits in the walk is k.
Row n gives the coefficients of the independence polynomial of the n X n king graph. - Eric W. Weisstein, Jun 20 2017

Examples

			The table begins with T(0,0):
  1;
  1,   1;
  1,   4;
  1,   9,  16,   8,   1;
  1,  16,  78, 140,  79;
  ...
T(4,3) = 140 because there are 140 ways to place 3 kings on a 4 X 4 chessboard so that no king threatens any other.
		

References

  • Norman Biggs, Algebraic Graph Theory, Cambridge University Press, New York, NY, second edition, 1993.

Crossrefs

Diagonal: A201513.
Cf. A179403, etc., for extension to toroidal boards.
Cf. A166540, etc., for extension into three dimensions.
Cf. A098487 for a clipped version.
Row n sums to A063443(n+1).

Formula

T(n, 0) = 1;
T(n, 1) = n^2;
T(2n-1, n^2-1) = n^3;
T(2n-1, n^2) = 1.

A182579 Triangle read by rows: T(0,0) = 1, for n>0: T(n,n) = 2 and for k<=floor(n/2): T(n,2*k) = n/(n-k) * binomial(n-k,k), T(n,2*k+1) = (n-1)/(n-1-k) * binomial(n-1-k,k).

Original entry on oeis.org

1, 1, 2, 1, 1, 2, 1, 1, 3, 2, 1, 1, 4, 3, 2, 1, 1, 5, 4, 5, 2, 1, 1, 6, 5, 9, 5, 2, 1, 1, 7, 6, 14, 9, 7, 2, 1, 1, 8, 7, 20, 14, 16, 7, 2, 1, 1, 9, 8, 27, 20, 30, 16, 9, 2, 1, 1, 10, 9, 35, 27, 50, 30, 25, 9, 2, 1, 1, 11, 10, 44, 35, 77, 50, 55, 25, 11, 2
Offset: 0

Views

Author

Reinhard Zumkeller, May 06 2012

Keywords

Comments

A000204(n+1) = sum of n-th row, Lucas numbers;
A000204(n+3) = alternating row sum of n-th row;
A182584(n) = T(2*n,n), central terms;
A000012(n) = T(n,0), left edge;
A040000(n) = T(n,n), right edge;
A054977(n-1) = T(n,1) for n > 0;
A109613(n-1) = T(n,n-1) for n > 0;
A008794(n) = T(n,n-2) for n > 1.

Examples

			Starting with 2nd row = [1 2] the rows of the triangle are defined recursively without computing explicitely binomial coefficients; demonstrated for row 8, (see also Haskell program):
   (0) 1  1  7  6 14  9  7  2      [A]  row 7 prepended by 0
    1  1  7  6 14  9  7  2 (0)     [B]  row 7, 0 appended
    1  0  1  0  1  0  1  0  1      [C]  1 and 0 alternating
    1  0  7  0 14  0  7  0  0      [D]  = [B] multiplied by [C]
    1  1  8  7 20 14 16  7  2      [E]  = [D] added to [A] = row 8.
The triangle begins:                 | A000204
              1                      |       1
             1  2                    |       3
            1  1  2                  |       4
           1  1  3  2                |       7
          1  1  4  3  2              |      11
         1  1  5  4  5  2            |      18
        1  1  6  5  9  5  2          |      29
       1  1  7  6 14  9  7  2        |      47
      1  1  8  7 20 14 16  7  2      |      76
     1  1  9  8 27 20 30 16  9  2    |     123
    1  1 10  9 35 27 50 30 25  9  2  |     199 .
		

Crossrefs

Programs

  • Haskell
    a182579 n k = a182579_tabl !! n !! k
    a182579_row n = a182579_tabl !! n
    a182579_tabl = [1] : iterate (\row ->
      zipWith (+) ([0] ++ row) (zipWith (*) (row ++ [0]) a059841_list)) [1,2]
  • Mathematica
    T[_, 0] = 1;
    T[n_, n_] /; n > 0 = 2;
    T[_, 1] = 1;
    T[n_, k_] := T[n, k] = Which[
         OddQ[k],  T[n - 1, k - 1],
         EvenQ[k], T[n - 1, k - 1] + T[n - 1, k]];
    Table[T[n, k], {n, 0, 11}, {k, 0, n}] // Flatten (* Jean-François Alcover, Dec 01 2021 *)

Formula

T(n+1,2*k+1) = T(n,2*k), T(n+1,2*k) = T(n,2*k-1) + T(n,2*k).

A213037 a(n) = n^2 - 2*floor(n/2)^2.

Original entry on oeis.org

0, 1, 2, 7, 8, 17, 18, 31, 32, 49, 50, 71, 72, 97, 98, 127, 128, 161, 162, 199, 200, 241, 242, 287, 288, 337, 338, 391, 392, 449, 450, 511, 512, 577, 578, 647, 648, 721, 722, 799, 800, 881, 882, 967, 968, 1057, 1058, 1151, 1152, 1249, 1250, 1351
Offset: 0

Views

Author

Clark Kimberling, Jun 06 2012

Keywords

Crossrefs

Cf. A247375.
Cf. A322630 (diagonal).

Programs

  • Mathematica
    a[n_] := n^2 - 2 Floor[n/2]^2
    Table[a[n], {n, 0, 90}]    (* A213037 *)
    LinearRecurrence[{1,2,-2,-1,1},{0,1,2,7,8},60] (* Harvey P. Dale, Oct 06 2016 *)
  • PARI
    a(n) = n^2 - 2*(n\2)^2; \\ Michel Marcus, May 25 2022

Formula

a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5).
G.f.: x*(1 + x + 3*x^2 - x^3)/((1 - x)^3*(1 + x)^2). [Corrected by Bruno Berselli, Sep 16 2014]
a(n) = A000290(n) - 2*A008794(n). - Michel Marcus, May 27 2022
E.g.f.: ((3*x + x^2)*cosh(x) + (-1 + x + x^2)*sinh(x))/2. - David Lovler, Jun 20 2022
Sum_{n>=1} 1/a(n) = Pi^2/12 - cot(Pi/sqrt(2))*Pi/(2*sqrt(2)) + 1/2. - Amiram Eldar, Sep 24 2022

A293857 a(n) is the number of permutations {c_1..c_n} of {1..n} for which c_1 - c_2 + ... + (-1)^(n-1)*c_n are squares.

Original entry on oeis.org

1, 1, 1, 4, 12, 36, 144, 1440, 9216, 66240, 504000, 7344000, 73612800, 830995200, 9373190400, 181875456000, 2474319052800, 38246274662400, 572552876851200, 13783143886848000, 237527801118720000, 4658378696294400000, 86818505051013120000, 2488457229932298240000
Offset: 0

Views

Author

Vladimir Shevelev, Oct 17 2017

Keywords

Comments

For a permutation C = {c_1..c_n} of {1..n}, set s(C) = c_1 - c_2 + ... + (-1)^(n-1)*c_n. Then max s(C) is square that is (ceil(n/2))^2 or A008794(n+1).
a(n)/n! is slowly and non-monotonically decreasing: 1, 1/2, 2/3, 1/2, 3/10, 1/5, 2/7, 8/35, 23/126, 5/36, 85/462, 71/462, ... .
Positions for which a(n) divisible by all primes <= n: 1, 4, 10, ... .
The smallest primes <= n not dividing a(n) or 0 if there is no such primes: 0, 2, 3, 0, 5, 5, 7, 5, 7, 0, 7, 7, ... .
Let k = floor(n / 2). Then a(n) = divisible by k! * (n-k)!. - David A. Corneth, Oct 18 2017. (For a proof, cf. comment in A293984. - Vladimir Shevelev, Nov 06 2017)

Examples

			Let n=3. For a permutation C={c_1,c_2,c_3}, set s = s(C) = c_1 - c_2 + c_3. We have the permutations:
1,2,3; s=2
1,3,2; s=0
2,1,3; s=4
2,3,1; s=0
3,1,2; s=4
3,2,1; s=2
Here there are 4 permutations for which {s} are squares. So a(3)=4.
		

Crossrefs

Programs

  • Maple
    b:= proc(p, m, s) option remember; (n-> `if`(n=0, `if`(issqr(s), 1, 0),
          `if`(p>0, b(p-1, m, s+n), 0)+`if`(m>0, b(p, m-1, s-n), 0)))(p+m)
        end:
    a:= n-> (t-> b(n-t, t, 0)*t!*(n-t)!)(iquo(n, 2)):
    seq(a(n), n=0..28);  # Alois P. Heinz, Sep 17 2020
  • Mathematica
    a293857=Table[Total[(Floor[n/2]!*(n-Floor[n/2])!)(Reverse[Map[SeriesCoefficient[QBinomial[n,Floor[(n+1)/2],q],{q,0,#}]&,Map[2#(Floor[(n+1)/2] - #)&,Range[0,Floor[(n+1)/4]]]]]
    )],{n,25}] (* Peter J. C. Moses, Nov 01 2017 *)

Formula

From author's comment in A008794 it follows that a(n) >= A010551(n).

Extensions

a(5)-a(12) from Peter J. C. Moses, Oct 17 2017
a(13)-a(23) from David A. Corneth, Oct 17 2017
a(0)=1 prepended by Alois P. Heinz, Sep 17 2020

A293984 a(n) = A293857(n)/A010551(n).

Original entry on oeis.org

1, 1, 1, 2, 3, 3, 4, 10, 16, 23, 35, 85, 142, 229, 369, 895, 1522, 2614, 4348, 10467, 18038, 32160, 54488, 130148, 226594, 414130, 710880, 1685496, 2958666, 5503780, 9544629, 22476690, 39724867, 74884360, 130949625, 306457174, 544777361, 1037587152, 1827129712
Offset: 0

Views

Author

Vladimir Shevelev, Oct 21 2017

Keywords

Comments

Or row sums of the compressed triangle in A293783.
Conjecture: all terms are positive integers.
From David A. Corneth (with participation of Vladimir Shevelev), Oct 24 2017: (Start)
Conjecture is true. Proof.
1) Let C={c_1..c_n} be a permutation of {1..n}, d(C) be alternating sum c_1 - c_2 + ... +(-1)^(n-1)*c_n. Then max_{C in S_n}d(C) = A008794(n+1). Indeed, if n = 2*m, then evidently the maximum is reached on a C={2*m,1,2*m-1,2,...,m+1,m}; if n=2*m - 1, then the maximum is reached on a C={2*m-1,1,2*m-2,2,...,m-1,m}. In both cases max_{C in S_n}d(C) = m^2 = A008794(n+1). The number of distinct reaches of the maximum is, evidently, floor(n/2)!*floor((n+1)/2)! which is also Avi Peretz's representation (2001) of A010551(n). So, A293857(n) >= A010551(n) and a(n)>=1.
2) Consider two cases: a) there are no C in S_n for which d(C) = k^2 < A008794(n+1). Then A293857(n) = A010551(n) and a(n) = 1; b) there is C for which d(C) = k^2 < A008794(n+1). Then, as in 1) to reach k^2 in case n=2*m consider all (n/2)! permutations of {c_1,c_3,...,c_n} and all (n/2)! permutations of {c_2, c_4, ... , c_(n+1)}, or in case n = 2*m-1, all ((n+1)/2)! permutations of {c_1,c_3,...,c_(2*m-1)} and ((n-1)/2)! permutations of {c_2,c_4,...,c_(2*m-2)}. So we again have A010551(n) distinct reaches. If the same k^2 could be reached by another permutation C_1 (other than above permutations of C), then we again obtain A010551 distinct reaches, etc. So, A293857(n) is always divisible by A010551(n). (End)

Crossrefs

Programs

  • Maple
    b:= proc(p, m, s) option remember; (n-> `if`(n=0, `if`(issqr(s), 1, 0),
          `if`(p>0, b(p-1, m, s+n), 0)+`if`(m>0, b(p, m-1, s-n), 0)))(p+m)
        end:
    a:= n-> (t-> b(n-t, t, 0))(iquo(n, 2)):
    seq(a(n), n=0..40);  # Alois P. Heinz, Sep 17 2020
  • Mathematica
    a293984=Table[
    possibleSums=Range[1/2-(-1)^n/2-Floor[n/2]^2,Floor[(n+1)/2]^2];
    filteredSums=Select[possibleSums,IntegerQ[Sqrt[#]]&];
    positions=Map[Flatten[{#,Position[possibleSums,#,1]-1}]&,filteredSums];
    Total[Map[SeriesCoefficient[QBinomial[n,Floor[(n+1)/2],q],{q,0,#[[2]]/2}]&,positions]],{n,20}] (* Peter J. C. Moses, Nov 05 2017 *)

Extensions

a(13)-a(30) from David A. Corneth, Oct 21 2017; a(31)-a(38) from Peter J. C. Moses, Nov 02 2017
a(0)=1 prepended by Alois P. Heinz, Sep 17 2020

A303301 Square array T(n,k) read by antidiagonals upwards in which row n is obtained by taking the general formula for generalized n-gonal numbers: m*((n - 2)*m - n + 4)/2, where m = 0, +1, -1, +2, -2, +3, -3, ... and n >= 5. Here n >= 0.

Original entry on oeis.org

0, 0, 1, 0, 1, -3, 0, 1, -2, 0, 0, 1, -1, 1, -8, 0, 1, 0, 2, -5, -3, 0, 1, 1, 3, -2, 0, -15, 0, 1, 2, 4, 1, 3, -9, -8, 0, 1, 3, 5, 4, 6, -3, -2, -24, 0, 1, 4, 6, 7, 9, 3, 4, -14, -15, 0, 1, 5, 7, 10, 12, 9, 10, -4, -5, -35, 0, 1, 6, 8, 13, 15, 15, 16, 6, 5, -20, -24, 0, 1, 7, 9, 16, 18, 21, 22, 16, 15, -5, -9, -48
Offset: 0

Views

Author

Omar E. Pol, Jun 08 2018

Keywords

Comments

Note that the formula mentioned in the definition gives several kinds of numbers, for example:
Row 0 and row 1 give A317300 and A317301 respectively.
Row 2 gives A001057 (canonical enumeration of integers).
Row 3 gives 0 together with A008795 (Molien series for 3-dimensional representation of dihedral group D_6 of order 6).
Row 4 gives A008794 (squares repeated) except the initial zero.
Finally, for n >= 5 row n gives the generalized k-gonal numbers (see Crossrefs section).

Examples

			Array begins:
------------------------------------------------------------------
n\m  Seq. No.    0   1  -1   2  -2   3   -3    4   -4    5   -5
------------------------------------------------------------------
0    A317300:    0,  1, -3,  0, -8, -3, -15,  -8, -24, -15, -35...
1    A317301:    0,  1, -2,  1, -5,  0,  -9,  -2, -14,  -5, -20...
2    A001057:    0,  1, -1,  2, -2,  3,  -3,   4,  -4,   5,  -5...
3   (A008795):   0,  1,  0,  3,  1,  6,   3,  10,   6,  15,  10...
4   (A008794):   0,  1,  1,  4,  4,  9,   9,  16,  16,  25,  25...
5    A001318:    0,  1,  2,  5,  7, 12,  15,  22,  26,  35,  40...
6    A000217:    0,  1,  3,  6, 10, 15,  21,  28,  36,  45,  55...
7    A085787:    0,  1,  4,  7, 13, 18,  27,  34,  46,  55,  70...
8    A001082:    0,  1,  5,  8, 16, 21,  33,  40,  56,  65,  85...
9    A118277:    0,  1,  6,  9, 19, 24,  39,  46,  66,  75, 100...
10   A074377:    0,  1,  7, 10, 22, 27,  45,  52,  76,  85, 115...
11   A195160:    0,  1,  8, 11, 25, 30,  51,  58,  86,  95, 130...
12   A195162:    0,  1,  9, 12, 28, 33,  57,  64,  96, 105, 145...
13   A195313:    0,  1, 10, 13, 31, 36,  63,  70, 106, 115, 160...
14   A195818:    0,  1, 11, 14, 34, 39,  69,  76, 116, 125, 175...
15   A277082:    0,  1, 12, 15, 37, 42,  75,  82, 126, 135, 190...
...
		

Crossrefs

Columns 0..2 are A000004, A000012, A023445.
Column 3 gives A001477 which coincides with the row numbers.
Main diagonal gives A292551.
Row 0-2 gives A317300, A317301, A001057.
Row 3 gives 0 together with A008795.
Row 4 gives A008794.
For n >= 5, rows n gives the generalized n-gonal numbers: A001318 (n=5), A000217 (n=6), A085787 (n=7), A001082 (n=8), A118277 (n=9), A074377 (n=10), A195160 (n=11), A195162 (n=12), A195313 (n=13), A195818 (n=14), A277082 (n=15), A274978 (n=16), A303305 (n=17), A274979 (n=18), A303813 (n=19), A218864 (n=20), A303298 (n=21), A303299 (n=22), A303303 (n=23), A303814 (n=24), A303304 (n=25), A316724 (n=26), A316725 (n=27), A303812 (n=28), A303815 (n=29), A316729 (n=30).
Cf. A317302 (a similar table but with polygonal numbers).

Programs

  • Mathematica
    t[n_, r_] := PolygonalNumber[n, If[OddQ@ r, Floor[(r + 1)/2], -r/2]]; Table[ t[n - r, r], {n, 0, 11}, {r, 0, n}] // Flatten (* also *)
    (* to view the square array *)  Table[ t[n, r], {n, 0, 15}, {r, 0, 10}] // TableForm (* Robert G. Wilson v, Aug 08 2018 *)

Formula

T(n,k) = A194801(n-3,k) if n >= 3.
Previous Showing 11-20 of 41 results. Next