A033537 -id:A033537 - cp's OEIS frontend

A139580 a(n) = n(2n + 17).

0, 19, 42, 69, 100, 135, 174, 217, 264, 315, 370, 429, 492, 559, 630, 705, 784, 867, 954, 1045, 1140, 1239, 1342, 1449, 1560, 1675, 1794, 1917, 2044, 2175, 2310, 2449, 2592, 2739, 2890, 3045, 3204, 3367, 3534, 3705, 3880, 4059

Offset: 0

Omar E. Pol, May 19 2008

Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Cf. A014105, A014106, A033537, A130861, A139576, A139577, A139578, A139579, A139581.

a[n_]:=Sum[4*i+15, {i, 1, n}]; (* Vladimir Joseph Stephan Orlovsky, Dec 04 2008 *)
Table[n(2n+17),{n,0,50}] (* or *) LinearRecurrence[{3,-3,1},{0,19,42},50] (* Harvey P. Dale, Jul 07 2024 *)

a(n)=n*(2*n+17) \\ Charles R Greathouse IV, Jun 17 2017

a(n) = 2*n^2 + 17*n.
a(n) = a(n-1) + 4*n + 15; a(0) = 0. - Vincenzo Librandi, Nov 24 2010
From Elmo R. Oliveira, Nov 29 2024: (Start)
G.f.: x*(19 - 15*x)/(1-x)^3.
E.g.f.: exp(x)*x*(19 + 2*x).
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 2. (End)

A139581 a(n) = n(2n + 19).

Original entry on oeis.org

0, 21, 46, 75, 108, 145, 186, 231, 280, 333, 390, 451, 516, 585, 658, 735, 816, 901, 990, 1083, 1180, 1281, 1386, 1495, 1608, 1725, 1846, 1971, 2100, 2233, 2370, 2511, 2656, 2805, 2958, 3115, 3276, 3441, 3610, 3783, 3960, 4141

Offset: 0

Omar E. Pol, May 19 2008

Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Cf. A014105, A014106, A033537, A130861, A139576, A139577, A139578, A139579, A139580.

Table[n(2n+19),{n,0,50}]  (* Harvey P. Dale, Jan 26 2011 *)

a(n)=n*(2*n+19) \\ Charles R Greathouse IV, Jun 17 2017

a(n) = 2*n^2 + 19*n.
a(n) = a(n-1) + 4*n + 17 (with a(0)=0). - Vincenzo Librandi, Nov 24 2010
From Elmo R. Oliveira, Nov 29 2024: (Start)
G.f.: x*(21 - 17*x)/(1-x)^3.
E.g.f.: exp(x)*x*(21 + 2*x).
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 2. (End)

A156140 Accumulation of Stern's diatomic series: a(0)=-1, a(1)=0, and a(n+1) = (2e(n)+1)*a(n) - a(n-1) for n > 1, where e(n) is the highest power of 2 dividing n.

Original entry on oeis.org

-1, 0, 1, 3, 2, 7, 5, 8, 3, 13, 10, 17, 7, 18, 11, 15, 4, 21, 17, 30, 13, 35, 22, 31, 9, 32, 23, 37, 14, 33, 19, 24, 5, 31, 26, 47, 21, 58, 37, 53, 16, 59, 43, 70, 27, 65, 38, 49, 11, 50, 39, 67, 28, 73, 45, 62, 17, 57, 40, 63, 23, 52, 29, 35, 6, 43, 37, 68, 31, 87, 56, 81, 25, 94, 69

Offset: 0

Arie Werksma (Werksma(AT)Tiscali.nl), Feb 04 2009

Charles R Greathouse IV, Table of n, a(n) for n = 0..10000

Cf. A002487, A007814.
From Yosu Yurramendi, Mar 09 2018: (Start)
a(2^m +  0) = A000027(m),   m >= 0.
a(2^m +  1) = A002061(m+2), m >= 1.
a(2^m +  2) = A002522(m),   m >= 2.
a(2^m +  3) = A033816(m-1), m >= 2.
a(2^m +  4) = A002061(m),   m >= 2.
a(2^m +  5) = A141631(m),   m >= 3.
a(2^m +  6) = A084849(m-1), m >= 3.
a(2^m +  7) = A056108(m-1), m >= 3.
a(2^m +  8) = A000290(m-1), m >= 3.
a(2^m +  9) = A185950(m-1), m >= 4.
a(2^m + 10) = A144390(m-1), m >= 4.
a(2^m + 12) = A014106(m-2), m >= 4.
a(2^m + 16) = A028387(m-3), m >= 4.
a(2^m + 18) = A250657(m-4), m >= 5.
a(2^m + 20) = A140677(m-3), m >= 5.
a(2^m + 32) = A028872(m-2), m >= 5.
a(2^m -  1) = A005563(m-1), m >= 0.
a(2^m -  2) = A028387(m-2), m >= 2.
a(2^m -  3) = A033537(m-2), m >= 2.
a(2^m -  4) = A008865(m-1), m >= 3.
a(2^m -  7) = A140678(m-3), m >= 3.
a(2^m -  8) = A014209(m-3), m >= 4.
a(2^m - 16) = A028875(m-2), m >= 5.
a(2^m - 32) = A108195(m-5), m >= 6.
(End)

A156140 := proc(n)
    option remember ;
    if n <= 1 then
        n-1 ;
    else
        (2*A007814(n-1)+1)*procname(n-1)-procname(n-2) ;
    end if;
end proc:
seq(A156140(n),n=0..80) ; # R. J. Mathar, Mar 14 2009

Fold[Append[#1, (2 IntegerExponent[#2, 2] + 1) #1[[-1]] - #1[[-2]] ] &, {-1, 0}, Range[73]] (* Michael De Vlieger, Mar 09 2018 *)

first(n)=my(v=vector(n+1)); v[1]=-1; v[2]=0; for(k=1,n-1,v[k+2]=(2*valuation(k,2)+1)*v[k+1] - v[k]); v \\ Charles R Greathouse IV, Apr 05 2016

fusc(n)=my(a=1, b=0); while(n>0, if(bitand(n, 1), b+=a, a+=b); n>>=1); b
a(n)=my(m=1,s,t); if(n==0, return(-1)); while(n%2==0, s+=fusc(n>>=1)); while(n>1, t=logint(n,2); n-=2^t; s+=m*fusc(n)*(t^2+t+1); m*=-t); m*(n-1) + s \\ Charles R Greathouse IV, Dec 13 2016

a <- c(0,1)
maxlevel <- 6 # by choice
for(m in 1:maxlevel) {
  a[2^(m+1)] <- m + 1
  for(k in 1:(2^m-1)) {
    r <- m - floor(log2(k)) - 1
    a[2^r*(2*k+1)] <- a[2^r*(2*k)] + a[2^r*(2*k+2)]
}}
a
# Yosu Yurramendi, May 08 2018

Let b(n) = A002487(n), Stern's diatomic series.
a(n+1)*b(n) - a(n)*b(n+1) = 1 for n >= 0.
a(2n+1) = a(n) + a(n+1) + b(n) + b(n+1) for n >= 0.
a(2n) = a(n) + b(n) for n >= 0.
a(2^n + k) = -n*a(k) + (n^2 + n + 1)*b(k) for 0 <= k <= 2^n.
b(2^n + k) = -a(k) + (n + 1)*b(k) for 0 <= k <= 2^n.
a(2^m + k) = b(2^m+k)*m + b(k), m >= 0, 0 <= k < 2^m. - Yosu Yurramendi, Mar 09 2018
a(2^(m+1)+2^m+1) = 2*m+1, m >= 0. - Yosu Yurramendi, Mar 09 2018
From Yosu Yurramendi, May 08 2018: (Start)
a(2^m) = m, m >= 0.
a(2^r*(2*k+1)) = a(2^r*(2*k)) + a(2^r*(2*k+2)), r = m - floor(log_2(k)) - 1, m > 0, 1 <= k < 2^m.
(End)

A185869 (Odd,even)-polka dot array in the natural number array A000027; read by antidiagonals.

Original entry on oeis.org

2, 7, 9, 16, 18, 20, 29, 31, 33, 35, 46, 48, 50, 52, 54, 67, 69, 71, 73, 75, 77, 92, 94, 96, 98, 100, 102, 104, 121, 123, 125, 127, 129, 131, 133, 135, 154, 156, 158, 160, 162, 164, 166, 168, 170, 191, 193, 195, 197, 199, 201, 203, 205, 207, 209, 232, 234, 236, 238, 240, 242, 244, 246, 248, 250, 252, 277, 279, 281, 283, 285, 287, 289, 291, 293, 295, 297, 299, 326, 328, 330, 332, 334, 336, 338, 340, 342, 344, 346, 348, 350, 379, 381, 383, 385, 387, 389, 391, 393, 395, 397, 399, 401, 403, 405

Offset: 1

Clark Kimberling, Feb 05 2011

This is the second of four polka dot arrays; see A185868.
row 1: A130883;
row 2: A100037;
row 3: A100038;
row 4: A100039;
col 1: A014107;
col 2: A033537;
col 3: A100040;
col 4: A100041;
diag (2,18,...): A077591;
diag (7,31,...): A157914;
diag (16,48,...): A035008;
diag (29,69,...): A108928;
antidiagonal sums: A033431;
antidiagonal sums: 2*(1^3, 2^3, 3^3, 4^3,...) = 2*A000578.
A060432(n) + n is odd if and only if n is in this sequence. - Peter Kagey, Feb 03 2016

			Northwest corner:
  2....7....16...29...46
  9....18...31...48...69
  20...33...50...71...96
  35...52...73...98...127

Peter Kagey, Table of n, a(n) for n = 1..10000

Cf. A000027 (as an array), A060432, A185868, A185870, A185871.

a185869 n = a185869_list !! (n - 1)
a185869_list = scanl (+) 2 $ a' 1
  where  a' n = 2 * n + 3 : replicate n 2 ++ a' (n + 1)
-- Peter Kagey, Sep 02 2016

f[n_,k_]:=2n-1+(2n+2k-3)(n+k-1);
TableForm[Table[f[n,k],{n,1,10},{k,1,15}]]
Table[f[n-k+1,k],{n,14},{k,n,1,-1}]//Flatten

from math import isqrt, comb
def A185869(n):
    a = (m:=isqrt(k:=n<<1))+(k>m*(m+1))
    x = n-comb(a,2)
    y = a-x+1
    return y*((y+(c:=x<<1)<<1)-5)+x*(c-3)+2 # Chai Wah Wu, Jun 18 2025

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

A193589 Augmentation of the Fibonacci triangle A193588. See Comments.

Original entry on oeis.org

1, 1, 2, 1, 4, 7, 1, 6, 18, 31, 1, 8, 33, 90, 154, 1, 10, 52, 185, 481, 820, 1, 12, 75, 324, 1065, 2690, 4575, 1, 14, 102, 515, 2006, 6276, 15547, 26398, 1, 16, 133, 766, 3420, 12468, 37711, 92124, 156233, 1, 18, 168, 1085, 5439, 22412, 78030, 230277

Offset: 0

Clark Kimberling, Jul 31 2011

For an introduction to the unary operation augmentation as applied to triangular arrays or sequences of polynomials, see A193091.
Regarding A193589, if the triangle is written as (w(n,k)), then w(n,n)=A007863(n); w(n,n-1)=A011270; and
(col 3)=A033537.

			First 5 rows of A193588:
1
1....2
1....2....3
1....2....3....5
1....2....3....5....8
First 5 rows of A193589:
1
1....2
1....4....7
1....6....18...31
1....8....33...90...154

Cf. A193091, A193588.

p[n_, k_] := Fibonacci[k + 2]
Table[p[n, k], {n, 0, 5}, {k, 0, n}]  (* A193588 *)
m[n_] := Table[If[i <= j, p[n + 1 - i, j - i], 0], {i, n}, {j, n + 1}]
TableForm[m[4]]
w[0, 0] = 1; w[1, 0] = p[1, 0]; w[1, 1] = p[1, 1];
v[0] = w[0, 0]; v[1] = {w[1, 0], w[1, 1]};
v[n_] := v[n - 1].m[n]
TableForm[Table[v[n], {n, 0, 6}]]  (* A193589 *)
Flatten[Table[v[n], {n, 0, 8}]]

A211394 T(n,k) = (k+n)(k+n-1)/2-(k+n-1)(-1)^(k+n)-k+2; n , k > 0, read by antidiagonals.

Original entry on oeis.org

1, 5, 6, 2, 3, 4, 12, 13, 14, 15, 7, 8, 9, 10, 11, 23, 24, 25, 26, 27, 28, 16, 17, 18, 19, 20, 21, 22, 38, 39, 40, 41, 42, 43, 44, 45, 29, 30, 31, 32, 33, 34, 35, 36, 37, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 80

Offset: 1

Boris Putievskiy, Feb 08 2013

Permutation of the natural numbers.
a(n) is a pairing function: a function that reversibly maps Z^{+} x Z^{+} onto Z^{+}, where Z^{+} is the set of integer positive numbers.
Enumeration table T(n,k). The order of the list:
T(1,1)=1;
T(1,3), T(2,2), T(3,1);
T(1,2), T(2,1);
. . .
T(1,n), T(2,n-1), T(3,n-2), ... T(n,1);
T(1,n-1), T(2,n-3), T(3,n-4),...T(n-1,1);
. . .
First row  matches with the elements antidiagonal {T(1,n), ... T(n,1)},
second row matches with the elements antidiagonal {T(1,n-1), ... T(n-1,1)}.
Table contains:
row  1 is alternation of elements A130883 and A096376,
row  2  accommodates elements A033816 in even places,
row  3  accommodates elements A100037 in odd  places,
row  5  accommodates elements A100038 in odd  places;
column 1 is alternation of elements A084849 and  A000384,
column 2 is alternation of elements A014106 and  A014105,
column 3 is alternation of elements A014107 and  A091823,
column 4 is alternation of elements A071355 and |A168244|,
column 5 accommodates elements A033537 in even places,
column 7 is alternation of elements A100040 and  A130861,
column 9 accommodates elements A100041 in even places;
the main diagonal is A058331,
diagonal  1, located above the main diagonal is  A001844,
diagonal  2, located above the main diagonal is  A001105,
diagonal  3, located above the main diagonal is  A046092,
diagonal  4, located above the main diagonal is  A056220,
diagonal  5, located above the main diagonal is  A142463,
diagonal  6, located above the main diagonal is  A054000,
diagonal  7, located above the main diagonal is  A090288,
diagonal  9, located above the main diagonal is  A059993,
diagonal 10, located above the main diagonal is |A147973|,
diagonal 11, located above the main diagonal is  A139570;
diagonal  1, located under the main diagonal is  A051890,
diagonal  2, located under the main diagonal is  A005893,
diagonal  3, located under the main diagonal is  A097080,
diagonal  4, located under the main diagonal is  A093328,
diagonal  5, located under the main diagonal is  A137882.

			The start of the sequence as table:
  1....5...2..12...7..23..16...
  6....3..13...8..24..17..39...
  4...14...9..25..18..40..31...
  15..10..26..19..41..32..60...
  11..27..20..42..33..61..50...
  28..21..43..34..62..51..85...
  22..44..35..63..52..86..73...
  . . .
The start of the sequence as triangle array read by rows:
  1;
  5,6;
  2,3,4;
  12,13,14,15;
  7,8,9,10,11;
  23,24,25,26,27,28;
  16,17,18,19,20,21,22;
  . . .
Row number r matches with r numbers segment {(r+1)*r/2-r*(-1)^(r+1)-r+2,... (r+1)*r/2-r*(-1)^(r+1)+1}.

Boris Putievskiy, Rows n = 1..140 of triangle, flattened
Boris Putievskiy, Transformations [of] Integer Sequences And Pairing Functions arXiv:1212.2732 [math.CO], 2012.
Eric Weisstein's World of Mathematics, Pairing functions
Index entries for sequences that are permutations of the natural numbers

Cf. A130883, A096376, A033816, A100037, A100038, A084849, A000384, A014106, A014105, A014107, A091823, A071355, A168244, A033537, A100040, A130861, A100041, A058331, A001844, A001105, A046092, A056220, A142463, A054000, A090288, A059993, A147973, A139570, A051890, A005893, A097080, A093328, A137882.

T[n_, k_] := (n+k)(n+k-1)/2 - (-1)^(n+k)(n+k-1) - k + 2;
Table[T[n-k+1, k], {n, 1, 12}, {k, n, 1, -1}] // Flatten (* Jean-François Alcover, Dec 06 2018 *)

t=int((math.sqrt(8*n-7) - 1)/ 2)
j=(t*t+3*t+4)/2-n
result=(t+2)*(t+1)/2-(t+1)*(-1)**t-j+2

T(n,k) = (k+n)*(k+n-1)/2-(k+n-1)*(-1)^(k+n)-k+2.
As linear sequence
a(n) = A003057(n)*A002024(n)/2- A002024(n)*(-1)^A003056(n)-A004736(n)+2.
a(n) = (t+2)*(t+1)/2 - (t+1)*(-1)^t-j+2, where j=(t*t+3*t+4)/2-n and t=int((math.sqrt(8*n-7) - 1)/ 2).

A185781 Accumulation array of A185780, by antidiagonals.

Original entry on oeis.org

1, 5, 2, 14, 12, 3, 30, 36, 21, 4, 55, 80, 66, 32, 5, 91, 150, 150, 104, 45, 6, 140, 252, 285, 240, 150, 60, 7, 204, 392, 483, 460, 350, 204, 77, 8, 285, 576, 756, 784, 675, 480, 266, 96, 9, 385, 810, 1116, 1232, 1155, 930, 630, 336, 117, 10, 506, 1100, 1575, 1824, 1820, 1596, 1225, 800, 414, 140, 11, 650, 1452, 2145, 2580, 2700, 2520, 2107, 1560, 990, 500, 165, 12

Offset: 1

Clark Kimberling, Feb 03 2011

See A144112 and A185780.

			Northwest corner:
1.....5....14....30....55
2.....12...36....80....150
3.....21...66....150...285
4.....32...104...240...460
5.....45...150...350...675

G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened

Cf. A144112, A185780.

Columns 1 to 4: A000027, A028347, 2*A033537, 10*A005563.

(See A185780.)
f[n_, k_] := k*(k + 1)*n*(k*n - n + k + 2)/6; Table[f[n - k + 1, k], {n, 10}, {k, n, 1, -1}] // Flatten (* G. C. Greubel, Jul 12 2017 *)

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

A188551 Numbers located at angle turns in a pentagonal spiral.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 9, 11, 12, 14, 17, 20, 23, 24, 27, 31, 35, 39, 40, 44, 49, 54, 59, 60, 65, 71, 77, 83, 84, 90, 97, 104, 111, 112, 119, 127, 135, 143, 144, 152, 161, 170, 179, 180, 189, 199, 209, 219, 220, 230, 241, 252, 263, 264, 275, 287, 299, 311, 312, 324, 337, 350, 363, 364, 377, 391, 405, 419, 420, 434, 449, 464, 479, 480

Offset: 1

Michel Lagneau, Apr 04 2011

The link illustrates with three figures:
Figure 1 contains the numbers located at angle turns in the pentagonal spiral;
Figure 2 contains the primes in the pentagonal spiral;
Figure 3 shows a variety of sequences that are associated with the numbers on the lines and diagonals in the pentagonal spiral. For example, the sequence A033537 given by the formula n(2n+5) generates {0, 7, 18, 33, 52, 75, ...} and the corresponding line in the spiral passes through {7, 18, 33, 52, 75, ...}.

Vincenzo Librandi, Table of n, a(n) for n = 1..5000
Michel Lagneau, Illustration of the numbers in the pentagonal spiral
Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,2,-2,0,0,0,-1,1).

I:=[1,2,3,4,5,7,9,11,12,14,17]; [n le 11 select I[n] else Self(n-1)+2*Self(n-5)-2*Self(n-6)-Self(n-10)+Self(n-11): n in [1..90]]; // Vincenzo Librandi, Aug 18 2018

with(numtheory):
T:=array(1..300): k:=1:
for n from 1 to 50 do:
    x1:= 2*n^2 -1:       T[k]:=x1:
    x2:= (n+1)*(2*n-1):  T[k+1]:=x2:
    x3:=2*n^2+2*n-1:     T[k+2]:=x3:
    x4:= 2*n*(n+1):      T[k+3]:=x4:
    x5:=n*(2*n+3):       T[k+4]:=x5:
    k:=k+5:
od:
for p from 1 to 250 do:
    z:= T[p]:
    printf(`%d, `, z):
od:

CoefficientList[Series[(1 + x) (1 + x^2) (x^2 - x + 1) (x^3 - x - 1) / ((x^4 + x^3 + x^2 + x + 1)^2 (x - 1)^3), {x, 0, 80}], x] (* Vincenzo Librandi, Aug 18 2018 *)
LinearRecurrence[{1,0,0,0,2,-2,0,0,0,-1,1},{1,2,3,4,5,7,9,11,12,14,17},80] (* Harvey P. Dale, Jun 17 2021 *)

From R. J. Mathar, Apr 12 2011: (Start)
a(n) = a(n-1) + 2*a(n-5) - 2*a(n-6) - a(n-10) + a(n-11).
G.f.: x*(1+x)*(1+x^2)*(x^2-x+1)*(x^3-x-1) / ((x^4+x^3+x^2+x+1)^2*(x-1)^3 ). (End)

A279895 a(n) = n(5n + 11)/2.

Original entry on oeis.org

0, 8, 21, 39, 62, 90, 123, 161, 204, 252, 305, 363, 426, 494, 567, 645, 728, 816, 909, 1007, 1110, 1218, 1331, 1449, 1572, 1700, 1833, 1971, 2114, 2262, 2415, 2573, 2736, 2904, 3077, 3255, 3438, 3626, 3819, 4017, 4220, 4428, 4641, 4859, 5082, 5310, 5543, 5781, 6024, 6272, 6525

Offset: 0

Bruno Berselli, Dec 22 2016

Bruno Berselli, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Cf. A000566, A008589, A017281.
Second bisection of A165720.
The first differences are in A016885.
Cf. similar sequences provided by P(s,m)+s*m, where P(s,m) = ((s-2)*m^2-(s-4)*m)/2 is the m-th s-gonal number: A008585 (s=2), A055999 (s=3), A028347 (s=4), A140091 (s=5), A033537 (s=6), this sequence (s=7), A067725 (s=8).

Magma
```
[n*(5*n+11)/2: n in [0..60]];
```

Table[n (5 n + 11)/2, {n, 0, 60}]
LinearRecurrence[{3,-3,1},{0,8,21},60] (* Harvey P. Dale, Nov 14 2022 *)

PARI
```
vector(60, n, n--; n*(5*n+11)/2)
```
Python
```
[n*(5*n+11)/2 for n in range(60)]
```
Sage
```
[n*(5*n+11)/2 for n in range(60)]
```

O.g.f.: x*(8 - 3*x)/(1 - x)^3.
E.g.f.: x*(16 + 5*x)*exp(x)/2.
a(n+h) - a(n-h) = h*A017281(n+1), with h>=0. A particular case:
a(n) - a(-n) = 11*n = A008593(n).
a(n+h) + a(n-h) = 2*a(n) + A033429(h), with h>=0. A particular case:
a(n) + a(-n) = A033429(n).
a(n) - a(n-2) = A017281(n) for n>1. Also:
40*a(n) + 121 = A017281(n+1)^2.
a(n) = A000566(n) + 7*n, also a(n) = A000566(n) + A008589(n). - Michel Marcus, Dec 22 2016

A091435 Array T(n,k) = n*(n+k), read by antidiagonals.

Original entry on oeis.org

0, 1, 0, 4, 2, 0, 9, 6, 3, 0, 16, 12, 8, 4, 0, 25, 20, 15, 10, 5, 0, 36, 30, 24, 18, 12, 6, 0, 49, 42, 35, 28, 21, 14, 7, 0, 64, 56, 48, 40, 32, 24, 16, 8, 0, 81, 72, 63, 54, 45, 36, 27, 18, 9, 0, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 0, 121, 110, 99, 88, 77, 66, 55, 44, 33, 22, 11, 0

Offset: 0

Ross La Haye, Mar 02 2004

			Table begins
   0;
   1,  0;
   4,  2,  0;
   9,  6,  3,  0;
  16, 12,  8,  4,  0;
  25, 20, 15, 10,  5,  0;
  36, 30, 24, 18, 12,  6,  0;
  ...
a(5,3) = 40 because 5 * (5 + 3) = 5 * 8 = 40.

Muniru A Asiru, Table of n, a(n) for n = 0..5150 (rows n = 0..100,flattened)
P. De Geest, Palindromic Quasipronics of the form n(n+x)

Columns: a(n, 0) = A000290(n), a(n, 1) = A002378(n), a(n, 2) = A005563(n), a(n, 3) = A028552(n), a(n, 4) = A028347(n+2), a(n, 5) = A028557(n), a(n, 6) = A028560(n), a(n, 7) = A028563(n), a(n, 8) = A028566(n). Diagonals: a(n, n-4) = A054000(n-1), a(n, n-3) = A014107(n), a(n, n-2) = A046092(n-1), a(n, n-1) = A000384(n), a(n, n) = A001105(n), a(n, n+1) = A014105(n), a(n, n+2) = A046092(n), a(n, n+3) = A014106(n), a(n, n+4) = A054000(n+1), a(n, n+5) = A033537(n). Also note that the sums of the antidiagonals = A002411.

Cf. A056536, A056537, A082156.

Flat(List([0..11],j->List([0..j],i->j*(j-i)))); # Muniru A Asiru, Sep 11 2018

Maple
```
seq(seq((j-i)*j,i=0..j),j=0..14);
```

Table[# (# + k) &[m - k], {m, 0, 11}, {k, 0, m}] // Flatten (* Michael De Vlieger, Oct 15 2018 *)

G.f.: x*(1+x-2*x^2*y)/((1-x*y)^2*(1-x)^3). - Vladeta Jovovic, Mar 05 2004

More terms from Emeric Deutsch, Mar 15 2004

cp's OEIS Frontend

A139580 a(n) = n*(2*n + 17).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A139581 a(n) = n*(2*n + 19).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A156140 Accumulation of Stern's diatomic series: a(0)=-1, a(1)=0, and a(n+1) = (2e(n)+1)*a(n) - a(n-1) for n > 1, where e(n) is the highest power of 2 dividing n.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

R

Formula

A185869 (Odd,even)-polka dot array in the natural number array A000027; read by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

Python

Formula

A193589 Augmentation of the Fibonacci triangle A193588. See Comments.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A211394 T(n,k) = (k+n)*(k+n-1)/2-(k+n-1)*(-1)^(k+n)-k+2; n , k > 0, read by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Python

Formula

A185781 Accumulation array of A185780, by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A188551 Numbers located at angle turns in a pentagonal spiral.

A139580 a(n) = n(2n + 17).

A139581 a(n) = n(2n + 19).

A211394 T(n,k) = (k+n)(k+n-1)/2-(k+n-1)(-1)^(k+n)-k+2; n , k > 0, read by antidiagonals.

A279895 a(n) = n(5n + 11)/2.