The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A095729 A002260 squared, as an infinite lower triangular matrix, read by rows. 1
 1, 3, 4, 6, 10, 9, 10, 18, 21, 16, 15, 28, 36, 36, 25, 21, 40, 54, 60, 55, 36, 28, 54, 75, 88, 90, 78, 49, 36, 70, 99, 120, 130, 126, 105, 64, 45, 88, 126, 156, 175, 180, 168, 136, 81, 55, 108, 156, 196, 225, 240, 238, 216, 171, 100, 66, 130, 189, 240, 280, 306, 315, 304 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS A 4-dimensional pyramidal triangle. Sum of terms in n-th row = A001296(n-1), 4-dimensional pyramidal numbers. A001296 = 1, 6, 25, 65, 140. ... E.g.: sum of terms in 5th row of A095729 = (15+28+36+36+25) = 140 = A001296(4). 2. By columns, k; even columns sequences as f(x), x = 1, 2, 3...; = (k/2)x^2 + (k^2 - k/2)x. For example, terms in row 2, (A028552): 4, 10, 18, 28, 40...= x^2 + 3x; row 4 = 2x^2 + 14x, row 6 = 3x^2 + 33x, row 8 = 4x^2 + 60x...etc. LINKS FORMULA Square of an n X n matrix of the form (exemplified by n=3) {1 0 0 / 1 2 0 / 1 2 3]; generates the first n rows of the triangle; where each n-th row starting with 1, has n terms: 1; 3, 4; 6, 10, 9; 10, 18, 21, 16;... The number in the i-th row and j-th column (j<=i) of the squared matrix is j*(binomial[i + 1, 2] - binomial[j, 2]) - Keith Schneider (schneidk(AT)email.unc.edu), Jul 23 2007 EXAMPLE First few rows of the triangle are 1; 3, 4; 6, 10, 9; 10, 18, 21, 16; 15, 28, 36, 36, 25; 21, 40, 54, 60, 55, 36, ... [1 0 0 / 1 2 0 / 1 2 3]^2 = [1 0 0 / 3 4 0 / 6 10 9]. Next higher order matrix generates rows of the one lower order, plus the next row: For example, the 4 X 4 matrix [1 0 0 0 / 1 2 0 0 / 1 2 3 0 / 1 2 3 4]^2 = [1 0 0 0 / 3 4 0 0 / 6 10 9 0 / 10 18 21 16]. MATHEMATICA FindRow[n_] := Module[{i = 0}, While[Binomial[i, 2] < n, i++ ]; i - 1]; FindCol[n_] := n - Binomial[FindRow[n], 2]; A095729[n_] := FindCol[n](Binomial[FindRow[n]+1, 2] - Binomial[FindCol[n], 2]); Table[A095729[i], {i, 1, 91}] - Keith Schneider (schneidk(AT)email.unc.edu), Jul 23 2007 CROSSREFS Cf. A001296, A028552, A002260. Sequence in context: A192286 A242028 A254002 * A185739 A050087 A079325 Adjacent sequences:  A095726 A095727 A095728 * A095730 A095731 A095732 KEYWORD nonn,tabl AUTHOR Gary W. Adamson, Jun 05 2004, Feb 17 2007 EXTENSIONS More terms from Keith Schneider (schneidk(AT)email.unc.edu), Jul 23 2007 Edited by N. J. A. Sloane, Jul 03 2008 at the suggestion of R. J. Mathar STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 27 13:45 EDT 2021. Contains 348276 sequences. (Running on oeis4.)