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 31-40 of 115 results. Next

A279777 Numbers k such that the sum of digits of 9k is 27.

Original entry on oeis.org

111, 211, 221, 222, 311, 321, 322, 331, 332, 333, 411, 421, 422, 431, 432, 433, 441, 442, 443, 444, 511, 521, 522, 531, 532, 533, 541, 542, 543, 544, 551, 552, 553, 554, 555, 611, 621, 622, 631, 632, 633, 641, 642, 643, 644, 651, 652, 653, 654, 655, 661
Offset: 1

Views

Author

M. F. Hasler, Dec 23 2016

Keywords

Comments

The digital sum of 9k is always a multiple of 9. For most numbers below 100 it is actually equal to 9. Numbers such that the digital sum of 9k is 18 are listed in A279769. Only every third term of the present sequence is divisible by 3.
The sequence of record gaps [and upper end of the gap] is: 100 [a(2) = 211], 101 [a(221) = 1211], 111 [a(4841) = 11211], 111 [a(10121) = 22311], 111 [a(15752) = 33411], ..., 111 [a(45133) = 88911], 111 [a(50413) = 100011], 211 [a(55253) = 111211], 311 [a(110000) = 222311], ..., 911 [a(380557) = 888911], 1011 [a(411049) = 1000011], 1211 [a(436976) = 1111211], 2311 [a(840281) = 2222311], ..., 8911 [a(2451241) = 8888911], ...

Crossrefs

Cf. A008591, A084854, A003991, A004247, A279769 (sumdigits(9n) = 18).
Digital sum of m*n equals m: A088404 = A069537/2, A088405 = A052217/3, A088406 = A063997/4, A088407 = A069540/5, A088408 = A062768/6, A088409 = A063416/7, A088410 = A069543/8.
Numbers with given digital sum: A011557 (1), A052216 (2), A052217 (3), A052218 (4), A052219 (5), A052220 (6), A052221 (7), A052222 (8), A052223 (9), A052224 (10), A166311 (11), A235151 (12), A143164 (13), A235225 (14), A235226 (15), A235227 (16), A166370 (17), A235228 (18), A166459 (19), A235229 (20).
Cf. A007953 (digital sum), A005349 (Niven or Harshad numbers), A245062 (arranged in rows by digit sums).
Cf. A082259.

Programs

  • Mathematica
    Select[Range@ 661, Total@ IntegerDigits[9 #] == 27 &] (* Michael De Vlieger, Dec 23 2016 *)
  • PARI
    is(n)=sumdigits(9*n)==27

A094053 Triangle read by rows: T(n,k) = k*(n-k), 1 <= k <= n.

Original entry on oeis.org

0, 1, 0, 2, 2, 0, 3, 4, 3, 0, 4, 6, 6, 4, 0, 5, 8, 9, 8, 5, 0, 6, 10, 12, 12, 10, 6, 0, 7, 12, 15, 16, 15, 12, 7, 0, 8, 14, 18, 20, 20, 18, 14, 8, 0, 9, 16, 21, 24, 25, 24, 21, 16, 9, 0, 10, 18, 24, 28, 30, 30, 28, 24, 18, 10, 0, 11, 20, 27, 32, 35, 36, 35, 32, 27, 20, 11, 0, 12
Offset: 1

Views

Author

Reinhard Zumkeller, May 31 2004

Keywords

Comments

T(n,k) = A003991(n-1,k) for 1 <= k < n;
T(n,k) = T(n,n-1-k) for k < n;
T(n,1) = n-1; T(n,n) = 0; T(n,2) = A005843(n-2) for n > 1;
T(n,3) = A008585(n-3) for n>2; T(n,4) = A008586(n-4) for n > 3;
T(n,5) = A008587(n-5) for n>4; T(n,6) = A008588(n-6) for n > 5;
T(n,7) = A008589(n-7) for n>6; T(n,8) = A008590(n-8) for n > 7;
T(n,9) = A008591(n-9) for n>8; T(n,10) = A008592(n-10) for n > 9;
T(n,11) = A008593(n-11) for n>10; T(n,12) = A008594(n-12) for n > 11;
T(n,13) = A008595(n-13) for n>12; T(n,14) = A008596(n-14) for n > 13;
T(n,15) = A008597(n-15) for n>14; T(n,16) = A008598(n-16) for n > 15;
T(n,17) = A008599(n-17) for n>16; T(n,18) = A008600(n-18) for n > 17;
T(n,19) = A008601(n-19) for n>18; T(n,20) = A008602(n-20) for n > 19;
Row sums give A000292; triangle sums give A000332;
All numbers m > 0 occur A000005(m) times;
A002378(n) = T(A005408(n),n+1) = n*(n+1).
k-th columns are arithmetic progressions with step k, starting with 0. If a zero is prefixed to the sequence, then we get a new table where the columns are again arithmetic progressions with step k, but starting with k, k=0,1,2,...: 1st column = (0,0,0,...), 2nd column = (1,2,3,...), 3rd column = (2,4,6,8,...), etc. - M. F. Hasler, Feb 02 2013
Construct the infinite-dimensional matrix representation of angular momentum operators (J_1,J_2,J_3) in the Jordan-Schwinger form (cf. Harter, Klee, Schwinger). The triangle terms T(n,k) = T(2j,j+m) satisfy: (1/2)T(2j,j+m)^(1/2) = = = i = -i . Matrices for J_1 and J_2 are sparse. These equalities determine the only nonzero entries. - Bradley Klee, Jan 29 2016
T(n+1,k+1) is the number of degrees of freedom of a k-dimensional affine subspace within an n-dimensional vector space. This is most readily interpreted geometrically: e.g. in 3 dimensions a line (1-dimensional subspace) has T(4,2) = 4 degrees of freedom and a plane has T(4,3) = 3. T(n+1,1) = n indicates that points in n dimensions have n degrees of freedom. T(n,n) = 0 for any n as all n-dimensional spaces in an n-dimensional space are equivalent. - Daniel Leary, Apr 29 2020

Examples

			From _M. F. Hasler_, Feb 02 2013: (Start)
Triangle begins:
  0;
  1, 0;
  2, 2, 0;
  3, 4, 3, 0;
  4, 6, 6, 4, 0;
  5, 8, 9, 8, 5, 0;
  (...)
If an additional 0 was added at the beginning, this would become:
  0;
  0, 1;
  0, 2, 2;
  0, 3, 4; 3;
  0, 4, 6, 6, 4;
  0, 5, 8, 9, 8, 5;
  ... (End)
		

Crossrefs

J_3: A114327; J_1^2, J_2^2: A141387, A268759.
Cf. A000292 (row sums), A000332 (triangle sums).
T(n,k) for values of k:
A005843 (k=2), A008585 (k=3), A008586 (k=4), A008587 (k=5), A008588 (k=6), A008589 (k=7), A008590 (k=8), A008591 (k=9), A008592 (k=10), A008593 (k=11), A008594 (k=12), A008595 (k=13), A008596 (k=14), A008597 (k=15), A008598 (k=16), A008599 (k=17), A008600 (k=18), A008601 (k=19), A008602 (k=20).

Programs

  • Magma
    /* As triangle */ [[k*(n-k): k in [1..n]]: n in [1.. 15]]; // Vincenzo Librandi, Jan 30 2016
    
  • Mathematica
    Flatten[Table[(j - m) (j + m + 1), {j, 0, 10, 1/2}, {m, -j, j}]] (* Bradley Klee, Jan 29 2016 *)
  • PARI
    {for(n=1, 13, for(k=1, n, print1(k*(n - k)," ");); print(););} \\ Indranil Ghosh, Mar 12 2017

A098358 Multiplication table of the triangular numbers read by antidiagonals.

Original entry on oeis.org

1, 3, 3, 6, 9, 6, 10, 18, 18, 10, 15, 30, 36, 30, 15, 21, 45, 60, 60, 45, 21, 28, 63, 90, 100, 90, 63, 28, 36, 84, 126, 150, 150, 126, 84, 36, 45, 108, 168, 210, 225, 210, 168, 108, 45, 55, 135, 216, 280, 315, 315, 280, 216, 135, 55, 66, 165, 270, 360, 420, 441, 420, 360
Offset: 0

Views

Author

Douglas Stones (dssto1(AT)student.monash.edu.au), Sep 04 2004

Keywords

Comments

The number of rectangles to be found in a grid of size X by y. For example a(2, 2) = 9 since a 2 x 2 grid contains one rectangle of size 2 X 2, 4 of size 1 X 2 and 4 of size 1 X 1. - Hugo van der Sanden, May 24 2007

Examples

			Triangle begins:
   1;
   3,  3;
   6,  9,  6;
  10, 18, 18, 10;
  ...
		

Crossrefs

Programs

  • Mathematica
    a[n_, k_] := Binomial[k + 1, 2]*Binomial[n + 1, 2]; Table[a[n - k + 1, k], {n, 10}, {k, n, 1, -1}] // Flatten (* G. C. Greubel, Jul 22 2017 *)

Formula

a(m,n) = m*(m+1)*n*(n+1)/4.
G.f.: x*y / ((1-x)^3 * (1-y)^3). - Ralf Stephan, Oct 27 2004

A003988 Triangle with subscripts (1,1),(2,1),(1,2),(3,1),(2,2),(1,3), etc. in which entry (i,j) is [ i/j ].

Original entry on oeis.org

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

Views

Author

Keywords

Comments

Another version of A010766.

Crossrefs

Row sums are in A006218. Antidiagonal sums are in A002541.

Programs

  • Haskell
    a003988 n k = (n + 1 - k) `div` k
    a003988_row n = zipWith div [n,n-1..1] [1..n]
    a003988_tabl = map a003988_row [1..]
    -- Reinhard Zumkeller, Apr 13 2012
  • Mathematica
    t[n_, k_] := Quotient[n, k]; Table[t[n-k+1, k], {n, 1, 14}, {k, 1, n}] // Flatten (* Jean-François Alcover, Nov 21 2013 *)

Formula

From Franklin T. Adams-Watters, Jan 28 2006: (Start)
T(n,k) = Sum_{i=1..k} A077049(n,i).
G.f.: (1/(1-x))*Sum_{k>0} x^k*y^k/(1-x^k) = (1/(1-x))*Sum_{k>0} x^k * y / (1 - x^k y) = (1/(1-x)) * Sum_{k>0} x^k * Sum_{d|k} y^d = A(x,y)/(1-x) where A(x,y) is the g.f. of A077049. (End)
T(n,k) = floor((n + 1 - k) / k). - Reinhard Zumkeller, Apr 13 2012

Extensions

More terms from James Sellers

A080997 The positive integers arranged in nonincreasing order of centrality (the fraction of n represented by the average gcd of n and the other positive integers).

Original entry on oeis.org

1, 2, 3, 4, 6, 5, 8, 12, 10, 7, 9, 15, 14, 18, 16, 20, 24, 11, 30, 13, 21, 28, 22, 36, 17, 40, 27, 26, 42, 32, 48, 25, 19, 60, 33, 35, 45, 44, 34, 23, 54, 56, 39, 72, 50, 38, 52, 84, 66, 70, 90, 63, 29, 80, 46, 31, 51, 64, 120, 55, 78, 96, 75, 68, 57, 108, 49, 88, 37, 65, 105
Offset: 1

Views

Author

Matthew Vandermast, Feb 28 2003

Keywords

Comments

Equivalent descriptions of the centrality of n: 1) Probability that a randomly chosen product in the multiplication table for positive integers (A003991; see also A061017) is a multiple of n.
2) Probability taken over all exponential numerical bases that if the last digit of a number represents n, the number is a multiple of n. (For example, in base 10, the probability of a number that ends in 5 being a multiple of 5 is 1. Over all possible bases, the fraction of numbers ending in 5 that are multiples of 5 is the centrality of 5, 9/25 or .36.)
An infinite number of integers have the same centrality as at least one other integer. The only such examples in the first 114 terms of the sequence are 64 and 120, which share a centrality of .0625; they are listed in numerical order.

Examples

			The number 6 has a gcd of 1 with all numbers congruent to 1 or 5 modulo 6, 2 with all numbers congruent to 2 or 4 mod 6, 3 with all 3 mod 6 numbers and 6 with all numbers congruent to 0 mod 6. Its average gcd with other integers is 2.5 (A018804(6)/6), which represents 5/12 or .41666... of 6. This places 6 fifth in centrality among the integers, behind 1 (whose centrality is 1), 2 (.75), 3 (5/9 or .555...) and 4 (.5); it is therefore listed fifth in the sequence.
		

Crossrefs

Cf. A018804, A080999 for a formula for the numerator of the unreduced centrality fraction. Other related sequences are A080998, A081000, A081001, A081028, A081029.

Programs

  • Mathematica
    maxTerms = 100; Clear[c, s]; c[n_] := c[n] = Sum[d*EulerPhi[n/d], {d, Divisors[n] }]/n^2; s[terms_] := s[terms] = Sort[Range[terms], c[#1] >= c[#2] & ][[1 ;; maxTerms]]; s[terms = maxTerms]; s[terms += maxTerms]; While[s[terms] != s[terms - maxTerms], terms += maxTerms]; A080997 = s[terms] (* Jean-François Alcover, Feb 19 2015 *)

Formula

Formula for centrality of n: A018804(n)/n^2, where A018804(n) is the sum of gcd (k, n) for 1 <= k <= n.
The centrality of a(n) is given by A080999(n)/(a(n))^2.

A089913 Table T(n,k) = lcm(n,k)/gcd(n,k) = n*k/gcd(n,k)^2 read by antidiagonals (n >= 1, k >= 1).

Original entry on oeis.org

1, 2, 2, 3, 1, 3, 4, 6, 6, 4, 5, 2, 1, 2, 5, 6, 10, 12, 12, 10, 6, 7, 3, 15, 1, 15, 3, 7, 8, 14, 2, 20, 20, 2, 14, 8, 9, 4, 21, 6, 1, 6, 21, 4, 9, 10, 18, 24, 28, 30, 30, 28, 24, 18, 10, 11, 5, 3, 2, 35, 1, 35, 2, 3, 5, 11, 12, 22, 30, 36, 40, 42, 42, 40, 36, 30, 22, 12, 13, 6, 33, 10, 45
Offset: 1

Views

Author

Marc LeBrun, Nov 14 2003

Keywords

Comments

A multiplicative analog of absolute difference A049581. Exponents in prime factorization of T(n,k) are absolute differences of those of n and k. Commutative non-associative operator with identity 1. T(nx,kx)=T(n,k), T(n^x,k^x)=T(n,k)^x, etc.
The bivariate function log(T(., .)) is a distance (or metric) function. It is a weighted analog of A130836, in the sense that if e_i (resp. f_i) denotes the exponent of prime p_i in the factorization of m (resp. of n), then both log(T(m, n)) and A130836(m, n) are writable as Sum_{i} w_i * abs(e_i - f_i). For A130836, w_i = 1 for all i, whereas for log(T(., .)), w_i = log(p_i). - Luc Rousseau, Sep 17 2018
If the analog of absolute difference, as described in the first comment, is determined by factorization into distinct terms of A050376 instead of by prime factorization, the equivalent operation is defined by A059897 and is associative. The positive integers form a group under A059897. The two factorization methods give the same factorization for squarefree numbers (A005117), so that T(.,.) restricted to A005117 is associative. Thus the squarefree numbers likewise form a group under the operation defined by this sequence. - Peter Munn, Apr 04 2019

Examples

			T(6,10) = lcm(6,10)/gcd(6,10) = 30/2 = 15.
  1,  2,  3,  4,  5, ...
  2,  1,  6,  2, 10, ...
  3,  6,  1, 12, 15, ...
  4,  2, 12,  1, 20, ...
  5, 10, 15, 20,  1, ...
  ...
		

Crossrefs

Programs

  • GAP
    T:=Flat(List([1..13],n->List([1..n-1],k->Lcm(k,n-k)/Gcd(k,n-k)))); # Muniru A Asiru, Oct 24 2018
    
  • Mathematica
    Flatten[Table[LCM[i, m - i]/GCD[i, m - i], {m, 15}, {i, m - 1}]] (* Ivan Neretin, Apr 27 2015 *)
  • PARI
    A089913(n,k)=n*k/gcd(n,k)^2 \\ M. F. Hasler, Dec 06 2019

Formula

A130836(n, k) = A001222(T(n, k)). - Luc Rousseau, Sep 17 2018

A091257 Multiplication table A x B computed for polynomials over GF(2), where (A,B) runs as (1,1),(1,2),(2,1),(1,3),(2,2),(3,1),...

Original entry on oeis.org

1, 2, 2, 3, 4, 3, 4, 6, 6, 4, 5, 8, 5, 8, 5, 6, 10, 12, 12, 10, 6, 7, 12, 15, 16, 15, 12, 7, 8, 14, 10, 20, 20, 10, 14, 8, 9, 16, 9, 24, 17, 24, 9, 16, 9, 10, 18, 24, 28, 30, 30, 28, 24, 18, 10, 11, 20, 27, 32, 27, 20, 27, 32, 27, 20, 11, 12, 22, 30, 36, 40, 18, 18, 40, 36, 30, 22, 12
Offset: 1

Views

Author

Antti Karttunen, Jan 03 2004

Keywords

Comments

Essentially same as A048720 but computed starting from offset one instead of zero. Analogous to A003991. Each n occurs A091220(n) times.

Crossrefs

a(n) = A048720bi(A091255(n), A091256(n)) because the identity A x B = gcd(A, B) x lcm(A, B) holds also in the polynomial ring GF(2)[X].

A098361 Multiplication table of the factorial numbers read by antidiagonals.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 6, 2, 2, 6, 24, 6, 4, 6, 24, 120, 24, 12, 12, 24, 120, 720, 120, 48, 36, 48, 120, 720, 5040, 720, 240, 144, 144, 240, 720, 5040, 40320, 5040, 1440, 720, 576, 720, 1440, 5040, 40320, 362880, 40320, 10080, 4320, 2880, 2880, 4320, 10080, 40320, 362880
Offset: 0

Views

Author

Douglas Stones (dssto1(AT)student.monash.edu.au), Sep 04 2004

Keywords

Comments

This sequence gives the variance of the 2-dimensional Polynomial Chaoses (see the Stochastic Finite Elements reference). - Stephen Crowley, Mar 28 2007
Antidiagonal sums of the array A are A003149 (row sums of the triangle T). - Roger L. Bagula, Oct 29 2008
The triangle T(n, k) = k!*(n-k)! appears as denominators in the coefficients of the Niven polynomials x^n*(1 - x)^n/n! = Sum_{k=0..n} (-1)^k * x^(n+k)/((n-k)!*k!). These polynomials are used in a proof that Pi^2 (hence Pi) is irrational. See the Niven and Havil references. - Wolfdieter Lang, May 07 2018; corrected by Dimitri Papadopoulos, Nov 30 2023
The case T(n+1,k) = k!*(n-k+1)!, 1 <= k <= n+1, n >= 0 is the number of choices for forming a cluster (compact group) of k numbered items arranged in a line on a set of permutations of n numbered items arranged in a line. - Igor Victorovich Statsenko, Oct 13 2023
The numbers T(n,k) also appear in the denominators of the partial fraction expansion of 1/(x*(x+1)*...*(x+n)) = Sum_{k=0..n} (-1)^k * 1/(T(n,k)*(x+k)). - Dimitri Papadopoulos, Nov 30 2023
It follows from the previous comment that the numbers T(n,k) also appear in the denominators of the coefficients of the logarithms of the integral of 1/(x*(x+1)*...*(x+n)): c + Sum{k=0...n} (-1)^k * 1/(T(n,k)) * ln(x+k). - Colin Linzer, Dec 18 2024

Examples

			The array A(n, k) starts in row n=0 with columns k >= 0 as:
       1,      1,      2,       6,      24,      120, ...
       1,      1,      2,       6,      24,      120, ...
       2,      2,      4,      12,      48,      240, ...
       6,      6,     12,      36,     144,      720, ...
      24,     24,     48,     144,     576,     2880, ...
     120,    120,    240,     720,    2880,    14400, ...
     720,    720,   1440,    4320,   17280,    86400, ...
    5040,   5040,  10080,   30240,  120960,   604800, ...
   40320,  40320,  80640,  241920,  967680,  4838400, ...
  362880, 362880, 725760, 2177280, 8709120, 43545600, ...
  ...
The triangle T(n, k) begins:
n\k       0      1     2     3     4     5     6     7     8      9      10...
0:        1
1:        1      1
2:        2      1     2
3:        6      2     2     6
4:       24      6     4     6    24
5:      120     24    12    12    24   120
6:      720    120    48    36    48   120   720
7:     5040    720   240   144   144   240   720  5040
8:    40320   5040  1440   720   576   720  1440  5040 40320
9:   362880  40320 10080  4320  2880  2880  4320 10080 40320 362880
10: 3628800 362880 80640 30240 17280 14400 17280 30240 80640 362880 3628800
... - _Wolfdieter Lang_, May 07 2018
		

References

  • R. Ghanem and P. Spanos, Stochastic Finite Elements: A Spectral Approach (Revised Edition), 2003, Ch 2.4 Table 2-2.
  • Julian Havil, The Irrationals, Princeton University Press, Princeton and Oxford, 2012, pp. 116-125.
  • Ivan Niven, Irrational Numbers, Math. Assoc. Am., John Wiley and Sons, New York, 2nd printing 1963, pp. 19-21.

Crossrefs

Programs

  • Magma
    F:=Factorial; [F(n-k)*F(k): k in [0..n], n in [0..12]]; // G. C. Greubel, Jul 12 2022
    
  • Maple
    seq(print(seq(k!*(n-k)!,k=0..n)),n=0..6); # Peter Luschny, Aug 23 2010
  • Mathematica
    Table[(n+1)!*Beta[n-k+1, k+1], {n,0,12}, {k,0,n}]//Flatten (* Roger L. Bagula, Oct 29 2008 *)
  • SageMath
    f=factorial; flatten([[f(n-k)*f(k) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jul 12 2022

Formula

T(n, k) = k!*(n-k)! = n!/C(n,k), (0<=k<=n). - Peter Luschny, Aug 23 2010
Array A(n, k) = n!*k! = (k+n)!/binomial(k+n,n). - R. J. Mathar, Dec 10 2010
E.g.f. as array: 1/((1 - x)*(1 - y)). - Stefano Spezia, Jul 10 2020

A286101 Square array A(n,k) read by antidiagonals: A(n,k) = T(gcd(n,k), lcm(n,k)), where T(n,k) is sequence A000027 considered as a two-dimensional table.

Original entry on oeis.org

1, 2, 2, 4, 5, 4, 7, 16, 16, 7, 11, 12, 13, 12, 11, 16, 46, 67, 67, 46, 16, 22, 23, 106, 25, 106, 23, 22, 29, 92, 31, 191, 191, 31, 92, 29, 37, 38, 211, 80, 41, 80, 211, 38, 37, 46, 154, 277, 379, 436, 436, 379, 277, 154, 46, 56, 57, 58, 59, 596, 61, 596, 59, 58, 57, 56, 67, 232, 436, 631, 781, 862, 862, 781, 631, 436, 232, 67, 79, 80, 529, 212, 991, 302, 85, 302, 991, 212, 529, 80, 79
Offset: 1

Views

Author

Antti Karttunen, May 03 2017

Keywords

Comments

The array is read by descending antidiagonals as A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.

Examples

			The top left 12 X 12 corner of the array:
   1,   2,   4,   7,   11,   16,   22,   29,   37,   46,   56,   67
   2,   5,  16,  12,   46,   23,   92,   38,  154,   57,  232,   80
   4,  16,  13,  67,  106,   31,  211,  277,   58,  436,  529,   94
   7,  12,  67,  25,  191,   80,  379,   59,  631,  212,  947,  109
  11,  46, 106, 191,   41,  436,  596,  781,  991,   96, 1486, 1771
  16,  23,  31,  80,  436,   61,  862,  302,  193,  467, 2146,  142
  22,  92, 211, 379,  596,  862,   85, 1541, 1954, 2416, 2927, 3487
  29,  38, 277,  59,  781,  302, 1541,  113, 2557,  822, 3829,  355
  37, 154,  58, 631,  991,  193, 1954, 2557,  145, 4006, 4852,  706
  46,  57, 436, 212,   96,  467, 2416,  822, 4006,  181, 5996, 1832
  56, 232, 529, 947, 1486, 2146, 2927, 3829, 4852, 5996,  221, 8647
  67,  80,  94, 109, 1771,  142, 3487,  355,  706, 1832, 8647,  265
		

Crossrefs

Cf. A000124 (row 1 and column 1), A001844 (main diagonal).

Programs

Formula

A(n,k) = T(gcd(n,k), lcm(n,k)), where T(n,k) is sequence A000027 considered as a two-dimensional table, that is, as a pairing function from N x N to N.
A(n,k) = A(k,n), or equivalently, a(A038722(n)) = a(n). [Array is symmetric.]

A141387 Triangle read by rows: T(n,m) = n + 2*m*(n - m) (0 <= m <= n).

Original entry on oeis.org

0, 1, 1, 2, 4, 2, 3, 7, 7, 3, 4, 10, 12, 10, 4, 5, 13, 17, 17, 13, 5, 6, 16, 22, 24, 22, 16, 6, 7, 19, 27, 31, 31, 27, 19, 7, 8, 22, 32, 38, 40, 38, 32, 22, 8, 9, 25, 37, 45, 49, 49, 45, 37, 25, 9, 10, 28, 42, 52, 58, 60, 58, 52, 42, 28, 10
Offset: 0

Views

Author

Roger L. Bagula, Aug 03 2008

Keywords

Comments

Construct the infinite-dimensional matrix representation of angular momentum operators (J_1,J_2,J_3) in Jordan-Schwinger form (cf. Harter, Klee, Schwinger). The triangle terms T(n,k)=T(2j,j+m) satisfy:(1/4)T(2j,j+m) = = . Matrices for J_1^2 and J_2^2 are sparse. These diagonal equalities and the off-diagonal equalities of A268759 determine the only nonzero entries. Comments on A268759 provide a conjecture for the clear interpretation of these numbers in the context of binomial coefficients and other geometrical sequences. - Bradley Klee, Feb 20 2016
This sequence appears in the probability of the coin tossing "Gambler's Ruin". Call the probability of winning a coin toss = p, and the probability of losing the toss is 1-p = q, and call z = q/p. A gambler starts with $1, and tosses for $1 stakes till he has $0 (ruin) or has $n (wins). The average time T_win_lose(n) of a game (win OR lose) is a well-known function of z and n. The probability of the gambler winning P_win(n) is also known, and is equal to (1-z)/(1-z^n). T_win(n) defined as the average time it takes the gambler to win such a game is not so well known (I have not found it in the literature). I calculated T_win(n) and found it to be T_win(n) = P_win(n) * Sum_{m=0..n} T(n,m) * z^m. - Steve Newman, Oct 24 2016
As a square array A(n,m), gives the odd number's index of the product of n-th and m-th odd number. See formula. - Rainer Rosenthal, Sep 07 2022

Examples

			As a triangle:
  { 0},
  { 1,  1},
  { 2,  4,  2},
  { 3,  7,  7,  3},
  { 4, 10, 12, 10,  4},
  { 5, 13, 17, 17, 13,  5},
  { 6, 16, 22, 24, 22, 16,  6},
  { 7, 19, 27, 31, 31, 27, 19,  7},
  { 8, 22, 32, 38, 40, 38, 32, 22,  8},
  { 9, 25, 37, 45, 49, 49, 45, 37, 25,  9},
  {10, 28, 42, 52, 58, 60, 58, 52, 42, 28, 10}
From _Peter Munn_, Sep 28 2022: (Start)
Square array A(n,m) starts:
  0,  1,  2,  3,  4,  5,  6,  7, ...
  1,  4,  7, 10, 13, 16, 19, 22, ...
  2,  7, 12, 17, 22, 27, 32, 37, ...
  3, 10, 17, 24, 31, 38, 45, 52, ...
  4, 13, 22, 31, 40, 49, 58, 67, ...
  5, 16, 27, 38, 49, 60, 71, 82, ...
  6, 19, 32, 45, 58, 71, 84, 97, ...
...
(End)
		

References

  • R. N. Cahn, Semi-Simple Lie Algebras and Their Representations, Dover, NY, 2006, ISBN 0-486-44999-8, p. 139.

Crossrefs

[0, 0] together with the row sums give A007290.

Programs

  • Mathematica
    T[n_, m_] = n + 2* m *(-m + n);
    a = Table[Table[T[n, m], {m, 0, n}], {n, 0, 10}];
    Flatten[a]
    (* second program: *)
    Flatten[ Table[2 j + 2 j^2 - 2 m^2, {j, 0, 10, 1/2}, {m, -j, j}]] (* Bradley Klee, Feb 20 2016 *)
  • PARI
    {T(n, m) = if( m<0 || nMichael Somos, May 28 2017

Formula

T(n,m) = n + 2*m*(n-m).
Square array A(n,m) = 2*n*m + n + m, read by antidiagonals, satisfying 2*A(n,m) + 1 = (2*n+1)*(2*m+1) = A005408(n)*A005408(m) = A098353(n+1,m+1). - Rainer Rosenthal, Oct 01 2022

Extensions

Edited by N. J. A. Sloane, Feb 21 2016
Previous Showing 31-40 of 115 results. Next