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

A162612 Triangle read by rows in which row n lists n terms, starting with n^2+n-1, with gaps = n^2-1 between successive terms.

Original entry on oeis.org

1, 5, 8, 11, 19, 27, 19, 34, 49, 64, 29, 53, 77, 101, 125, 41, 76, 111, 146, 181, 216, 55, 103, 151, 199, 247, 295, 343, 71, 134, 197, 260, 323, 386, 449, 512, 89, 169, 249, 329, 409, 489, 569, 649, 729, 109, 208, 307, 406, 505, 604, 703, 802, 901, 1000, 131, 251
Offset: 1

Views

Author

Omar E. Pol, Jul 09 2009

Keywords

Comments

Note that the last term of the n-th row is the n-th cube A000578(n).

Examples

			Triangle begins:
   1;
   5,   8;
  11,  19,  27;
  19,  34,  49,  64;
  29,  53,  77, 101, 125;
  41,  76, 111, 146, 181, 216;
		

Crossrefs

Programs

Formula

Sum_{k=1..n} T(n,k)= n*(n^3 + n^2 + n - 1)/2 (row sums). - R. J. Mathar, Jul 20 2009

Extensions

More terms from Franklin T. Adams-Watters, Aug 06 2009

A162613 Triangle read by rows in which row n lists n terms, starting with n, with gaps = n^2-1 between successive terms.

Original entry on oeis.org

1, 2, 5, 3, 11, 19, 4, 19, 34, 49, 5, 29, 53, 77, 101, 6, 41, 76, 111, 146, 181, 7, 55, 103, 151, 199, 247, 295, 8, 71, 134, 197, 260, 323, 386, 449, 9, 89, 169, 249, 329, 409, 489, 569, 649, 10, 109, 208, 307, 406, 505, 604, 703, 802, 901, 11, 131, 251, 371, 491, 611
Offset: 1

Views

Author

Omar E. Pol, Jul 09 2009

Keywords

Comments

Note that the last term of the n-th row is A100104(n).

Examples

			Triangle begins:
  1;
  2,   5;
  3,  11,  19;
  4,  19,  34,  49;
  5,  29,  53,  77, 101;
  6,  41,  76, 111, 146, 181;
		

Crossrefs

Cf. A100855 (row sums). - R. J. Mathar, Jul 20 2009

Programs

  • Mathematica
    Table[NestList[#+n^2-1&,n,n-1],{n,11}]//Flatten (* Harvey P. Dale, Feb 24 2016 *)

Extensions

More terms from Vincenzo Librandi, Aug 02 2010

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

Original entry on oeis.org

1, 1, 4, 1, 5, 9, 1, 6, 11, 16, 1, 7, 13, 19, 25, 1, 8, 15, 22, 29, 36, 1, 9, 17, 25, 33, 41, 49, 1, 10, 19, 28, 37, 46, 55, 64, 1, 11, 21, 31, 41, 51, 61, 71, 81, 1, 12, 23, 34, 45, 56, 67, 78, 89, 100, 1, 13, 25, 37, 49, 61, 73, 85, 97, 109, 121, 1, 14, 27
Offset: 1

Views

Author

Reinhard Zumkeller, Jan 19 2013

Keywords

Comments

From Michel Marcus, May 18 2021: (Start)
The n-th row of the triangle is the main diagonal of an n X n square array whose elements are the numbers from 1..n^2, listed in increasing order by rows.
[1 2 3 4 5]
[1 2 3 4] [6 7 8 9 10]
[1 2 3] [5 6 7 8] [11 12 13 14 15]
[1 2] [4 5 6] [9 10 11 12] [16 17 18 19 20]
[1] [3 4] [7 8 9] [13 14 15 16] [21 22 23 24 25]
-----------------------------------------------------------
1 1 4 1 5 9 1 6 11 16 1 7 13 19 25
(End)

Examples

			From _Muniru A Asiru_, Oct 31 2017: (Start)
Triangle begins:
  1;
  1,  4;
  1,  5,  9;
  1,  6, 11, 16;
  1,  7, 13, 19, 25;
  1,  8, 15, 22, 29, 36;
  1,  9, 17, 25, 33, 41, 49;
  1, 10, 19, 28, 37, 46, 55, 64;
  1, 11, 21, 31, 41, 51, 61, 71, 81;
  1, 12, 23, 34, 45, 56, 67, 78, 89, 100;
  ... (End)
		

Crossrefs

Cf. A162610; A000012 (left edge), A000290 (right edge), A006003 (row sums), A001844 (central terms), A026741 (number of odd terms per row), A142150 (number of even terms per row), A221490 (number of primes per row).

Programs

  • GAP
    Flat(List([1..10^3], n -> List([1..n], k -> k * n + k - n))); # Muniru A Asiru, Oct 31 2017
  • Haskell
    a209297 n k = k * n + k - n
    a209297_row n = map (a209297 n) [1..n]
    a209297_tabl = map a209297_row [1..]
    
  • Mathematica
    Array[Range[1, #^2, #+1]&,10] (* Paolo Xausa, Feb 08 2024 *)

Formula

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

A162615 Triangle read by rows in which row n lists n terms, starting with n, such that the difference between successive terms is equal to n^3 - 1 = A068601(n).

Original entry on oeis.org

1, 2, 9, 3, 29, 55, 4, 67, 130, 193, 5, 129, 253, 377, 501, 6, 221, 436, 651, 866, 1081, 7, 349, 691, 1033, 1375, 1717, 2059, 8, 519, 1030, 1541, 2052, 2563, 3074, 3585, 9, 737, 1465, 2193, 2921, 3649, 4377, 5105, 5833, 10, 1009, 2008, 3007, 4006, 5005, 6004
Offset: 1

Views

Author

Omar E. Pol, Jul 12 2009

Keywords

Comments

See also the triangles of A162614 and A162616.

Examples

			Triangle begins:
  1;
  2,   9;
  3,  29,  55;
  4,  67, 130, 193;
  5, 129, 253, 377, 501;
  6, 221, 436, 651, 866, 1081;
  ...
		

Crossrefs

Programs

  • Maple
    A162615 := proc(n,k) n+(k-1)*(n^3-1) ; end proc: seq(seq(A162615(n,k),k=1..n),n=1..15) ; # R. J. Mathar, Feb 05 2010
  • Mathematica
    Flatten[Table[c=n^3-1;NestList[#+c&,n,n-1],{n,10}]] (* Harvey P. Dale, Nov 13 2011 *)

Formula

Row sums: n*(n^4 - n^3 + n + 1)/2. - R. J. Mathar, Jul 20 2009

Extensions

Terms beyond the 6th row from R. J. Mathar and Max Alekseyev, Feb 05 2010

A162616 Triangle read by rows in which row n lists n terms, starting with n^3 + n - 1, such that the difference between successive terms is equal to n^3 - 1 = A068601(n).

Original entry on oeis.org

1, 9, 16, 29, 55, 81, 67, 130, 193, 256, 129, 253, 377, 501, 625, 221, 436, 651, 866, 1081, 1296, 349, 691, 1033, 1375, 1717, 2059, 2401, 519, 1030, 1541, 2052, 2563, 3074, 3585, 4096, 737, 1465, 2193, 2921, 3649, 4377, 5105, 5833, 6561, 1009, 2008
Offset: 1

Views

Author

Omar E. Pol, Jul 12 2009

Keywords

Comments

Note that the last term of the n-th row is the fourth power of n, A000583(n).
See also the triangles of A162614 and A162615.

Examples

			Triangle begins:
    1;
    9,  16;
   29,  55,  81;
   67, 130, 193, 256;
  129, 253, 377, 501,  625;
  221, 436, 651, 866, 1081, 1296;
  ...
		

Crossrefs

Programs

  • Maple
    A162616 := proc(n,k) n^3+n-1+(k-1)*(n^3-1) ; end proc: seq(seq(A162616(n,k),k=1..n),n=1..15) ; # R. J. Mathar, Feb 05 2010
  • Mathematica
    Table[NestList[#+n^3-1&,n^3+n-1,n-1],{n,10}]//Flatten (* Harvey P. Dale, Dec 17 2021 *)

Formula

Row sums: n*(n^2 + n - 1)*(n^2+1)/2. - R. J. Mathar, Jul 20 2009

Extensions

More terms from R. J. Mathar, Feb 05 2010

A162624 Triangle read by rows in which row n lists n terms, starting with n^4 + n - 1, such that the difference between successive terms is equal to n^4 - 1 = A123865(n).

Original entry on oeis.org

1, 17, 32, 83, 163, 243, 259, 514, 769, 1024, 629, 1253, 1877, 2501, 3125, 1301, 2596, 3891, 5186, 6481, 7776, 2407, 4807, 7207, 9607, 12007, 14407, 16807, 4103, 8198, 12293, 16388, 20483, 24578, 28673, 32768, 6569, 13129, 19689, 26249, 32809
Offset: 1

Views

Author

Omar E. Pol, Jul 12 2009

Keywords

Comments

Note that the last term of the n-th row is the 5th power of n, A000584(n).
See also the triangles of A162622 and A162623.

Examples

			Triangle begins:
     1;
    17,   32;
    83,  163,  243;
   259,  514,  769, 1024;
   629, 1253, 1877, 2501, 3125;
  1301, 2596, 3891, 5186, 6481, 7776;
  ...
		

Crossrefs

Programs

Formula

Row sums: n*(n^5 + n^4 + n - 1)/2. - R. J. Mathar, Jul 20 2009

A162623 Triangle read by rows in which row n lists n terms, starting with n, such that the difference between successive terms is equal to n^4 - 1 = A123865(n).

Original entry on oeis.org

1, 2, 17, 3, 83, 163, 4, 259, 514, 769, 5, 629, 1253, 1877, 2501, 6, 1301, 2596, 3891, 5186, 6481, 7, 2407, 4807, 7207, 9607, 12007, 14407, 8, 4103, 8198, 12293, 16388, 20483, 24578, 28673, 9, 6569, 13129, 19689, 26249, 32809, 39369, 45929, 52489, 10
Offset: 1

Views

Author

Omar E. Pol, Jul 12 2009

Keywords

Comments

See also the triangles of A162622 and A162624.

Examples

			Triangle begins:
  1;
  2,   17;
  3,   83,  163;
  4,  259,  514,  769;
  5,  629, 1253, 1877, 2501;
  6, 1301, 2596, 3891, 5186, 6481;
		

Crossrefs

Programs

  • Maple
    A162623 := proc(n,k) n+k*(n^4-1) ; end: seq(seq(A162623(n,k),k=0..n-1),n=1..15) ; # R. J. Mathar, Sep 27 2009
  • Mathematica
    dst[n_]:=Module[{c=n^4-1},Range[n,n*c,c]]; Flatten[Join[{1},Table[dst[n],{n,2,10}]]] (* Harvey P. Dale, Jul 29 2014 *)

Formula

Row sums: n*(n^5 - n^4 + n + 1)/2. - R. J. Mathar, Jul 20 2009

Extensions

More terms from R. J. Mathar, Sep 27 2009

A221491 Number of primes of the form k*n - k + n, 1 <= k <= n.

Original entry on oeis.org

0, 1, 2, 2, 2, 2, 5, 2, 3, 3, 5, 3, 6, 4, 7, 6, 5, 4, 9, 2, 8, 7, 8, 4, 11, 5, 10, 8, 10, 4, 16, 3, 10, 10, 12, 9, 15, 4, 10, 11, 13, 6, 20, 7, 11, 10, 15, 8, 19, 6, 19, 13, 16, 5, 25, 10, 19, 10, 15, 9, 26, 7, 16, 13, 16, 13, 30, 9, 18, 14, 26, 10, 25, 10
Offset: 1

Views

Author

Reinhard Zumkeller, Jan 19 2013

Keywords

Comments

a(n) = sum(A010051(A162610(n,k)): k=1..n) = number of primes in n-th row of the triangle in A162610. - Reinhard Zumkeller, Jan 19 2013

Examples

			Row 10 of A162610 = [19,28,37,46,55,64,73,82,91,100] containing three primes: [19,37,73], therefore a(10) = 3;
row 11 of A162610 = [21,31,41,51,61,71,81,91,101,111,121] containing five primes: [31,41,61,71,101], therefore a(11) = 5.
		

Crossrefs

Programs

  • Haskell
    a221491 n = sum [a010051' (k*n - k + n) | k <- [1..n]]
    
  • Mathematica
    a[n_] := Sum[Boole[PrimeQ[(k+1)(n-1)+1]], {k, 1, n}];
    Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Sep 20 2021 *)
  • PARI
    a(n) = sum(k=1, n, isprime(k*n - k + n)); \\ Michel Marcus, Jan 26 2022

A303273 Array T(n,k) = binomial(n, 2) + k*n + 1 read by antidiagonals.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 1, 3, 4, 4, 1, 4, 6, 7, 7, 1, 5, 8, 10, 11, 11, 1, 6, 10, 13, 15, 16, 16, 1, 7, 12, 16, 19, 21, 22, 22, 1, 8, 14, 19, 23, 26, 28, 29, 29, 1, 9, 16, 22, 27, 31, 34, 36, 37, 37, 1, 10, 18, 25, 31, 36, 40, 43, 45, 46, 46, 1, 11, 20, 28, 35, 41
Offset: 0

Views

Author

Keywords

Comments

Columns are linear recurrence sequences with signature (3,-3,1).
8*T(n,k) + A166147(k-1) are squares.
Columns k are binomial transforms of [1, k, 1, 0, 0, 0, ...].
Antidiagonals sums yield A116731.

Examples

			The array T(n,k) begins
1    1    1    1    1    1    1    1    1    1    1    1    1  ...  A000012
1    2    3    4    5    6    7    8    9   10   11   12   13  ...  A000027
2    4    6    8   10   12   14   16   18   20   22   24   26  ...  A005843
4    7   10   13   16   19   22   25   28   31   34   37   40  ...  A016777
7   11   15   19   23   27   31   35   39   43   47   51   55  ...  A004767
11  16   21   26   31   36   41   46   51   56   61   66   71  ...  A016861
16  22   28   34   40   46   52   58   64   70   76   82   88  ...  A016957
22  29   36   43   50   57   64   71   78   85   92   99  106  ...  A016993
29  37   45   53   61   69   77   85   93  101  109  117  125  ...  A004770
37  46   55   64   73   82   91  100  109  118  127  136  145  ...  A017173
46  56   66   76   86   96  106  116  126  136  146  156  166  ...  A017341
56  67   78   89  100  111  122  133  144  155  166  177  188  ...  A017401
67  79   91  103  115  127  139  151  163  175  187  199  211  ...  A017605
79  92  105  118  131  144  157  170  183  196  209  222  235  ...  A190991
...
The inverse binomial transforms of the columns are
1    1    1    1    1    1    1    1    1    1    1    1    1  ...
0    1    2    3    4    5    6    7    8    9   10   11   12  ...
1    1    1    1    1    1    1    1    1    1    1    1    1  ...
0    0    0    0    0    0    0    0    0    0    0    0    0  ...
0    0    0    0    0    0    0    0    0    0    0    0    0  ...
0    0    0    0    0    0    0    0    0    0    0    0    0  ...
...
T(k,n-k) = A087401(n,k) + 1 as triangle
1
1   1
1   2   2
1   3   4   4
1   4   6   7   7
1   5   8  10  11  11
1   6  10  13  15  16  16
1   7  12  16  19  21  22  22
1   8  14  19  23  26  28  29  29
1   9  16  22  27  31  34  36  37  37
1  10  18  25  31  36  40  43  45  46  46
...
		

References

  • R. L. Graham, D. E. Knuth and O. Patashnik, Concrete Mathematics: A Foundation for Computer Science, Addison-Wesley, 1994.

Crossrefs

Programs

  • Maple
    T := (n, k) -> binomial(n, 2) + k*n + 1;
    for n from 0 to 20 do seq(T(n, k), k = 0 .. 20) od;
  • Mathematica
    Table[With[{n = m - k}, Binomial[n, 2] + k n + 1], {m, 0, 11}, {k, m, 0, -1}] // Flatten (* Michael De Vlieger, Apr 21 2018 *)
  • Maxima
    T(n, k) := binomial(n, 2)+ k*n + 1$
    for n:0 thru 20 do
        print(makelist(T(n, k), k, 0, 20));
    
  • PARI
    T(n,k) = binomial(n, 2) + k*n + 1;
    tabl(nn) = for (n=0, nn, for (k=0, nn, print1(T(n, k), ", ")); print); \\ Michel Marcus, May 17 2018

Formula

G.f.: (3*x^2*y - 3*x*y + y - 2*x^2 + 2*x - 1)/((x - 1)^3*(y - 1)^2).
E.g.f.: (1/2)*(2*x*y + x^2 + 2)*exp(y + x).
T(n,k) = 3*T(n-1,k) - 3*T(n-2,k) + T(n-3,k), with T(0,k) = 1, T(1,k) = k + 1 and T(2,k) = 2*k + 2.
T(n,k) = T(n-1,k) + n + k - 1.
T(n,k) = T(n,k-1) + n, with T(n,0) = 1.
T(n,0) = A152947(n+1).
T(n,1) = A000124(n).
T(n,2) = A000217(n).
T(n,3) = A034856(n+1).
T(n,4) = A052905(n).
T(n,5) = A051936(n+4).
T(n,6) = A246172(n+1).
T(n,7) = A302537(n).
T(n,8) = A056121(n+1) + 1.
T(n,9) = A056126(n+1) + 1.
T(n,10) = A051942(n+10) + 1, n > 0.
T(n,11) = A101859(n) + 1.
T(n,12) = A132754(n+1) + 1.
T(n,13) = A132755(n+1) + 1.
T(n,14) = A132756(n+1) + 1.
T(n,15) = A132757(n+1) + 1.
T(n,16) = A132758(n+1) + 1.
T(n,17) = A212427(n+1) + 1.
T(n,18) = A212428(n+1) + 1.
T(n,n) = A143689(n) = A300192(n,2).
T(n,n+1) = A104249(n).
T(n,n+2) = T(n+1,n) = A005448(n+1).
T(n,n+3) = A000326(n+1).
T(n,n+4) = A095794(n+1).
T(n,n+5) = A133694(n+1).
T(n+2,n) = A005449(n+1).
T(n+3,n) = A115067(n+2).
T(n+4,n) = A133694(n+2).
T(2*n,n) = A054556(n+1).
T(2*n,n+1) = A054567(n+1).
T(2*n,n+2) = A033951(n).
T(2*n,n+3) = A001107(n+1).
T(2*n,n+4) = A186353(4*n+1) (conjectured).
T(2*n,n+5) = A184103(8*n+1) (conjectured).
T(2*n,n+6) = A250657(n-1) = A250656(3,n-1), n > 1.
T(n,2*n) = A140066(n+1).
T(n+1,2*n) = A005891(n).
T(n+2,2*n) = A249013(5*n+4) (conjectured).
T(n+3,2*n) = A186384(5*n+3) = A186386(5*n+3) (conjectured).
T(2*n,2*n) = A143689(2*n).
T(2*n+1,2*n+1) = A143689(2*n+1) (= A030503(3*n+3) (conjectured)).
T(2*n,2*n+1) = A104249(2*n) = A093918(2*n+2) = A131355(4*n+1) (= A030503(3*n+5) (conjectured)).
T(2*n+1,2*n) = A085473(n).
a(n+1,5*n+1)=A051865(n+1) + 1.
a(n,2*n+1) = A116668(n).
a(2*n+1,n) = A054569(n+1).
T(3*n,n) = A025742(3*n-1), n > 1 (conjectured).
T(n,3*n) = A140063(n+1).
T(n+1,3*n) = A069099(n+1).
T(n,4*n) = A276819(n).
T(4*n,n) = A154106(n-1), n > 0.
T(2^n,2) = A028401(n+2).
T(1,n)*T(n,1) = A006000(n).
T(n*(n+1),n) = A211905(n+1), n > 0 (conjectured).
T(n*(n+1)+1,n) = A294259(n+1).
T(n,n^2+1) = A081423(n).
T(n,A000217(n)) = A158842(n), n > 0.
T(n,A152947(n+1)) = A060354(n+1).
floor(T(n,n/2)) = A267682(n) (conjectured).
floor(T(n,n/3)) = A025742(n-1), n > 0 (conjectured).
floor(T(n,n/4)) = A263807(n-1), n > 0 (conjectured).
ceiling(T(n,2^n)/n) = A134522(n), n > 0 (conjectured).
ceiling(T(n,n/2+n)/n) = A051755(n+1) (conjectured).
floor(T(n,n)/n) = A133223(n), n > 0 (conjectured).
ceiling(T(n,n)/n) = A007494(n), n > 0.
ceiling(T(n,n^2)/n) = A171769(n), n > 0.
ceiling(T(2*n,n^2)/n) = A046092(n), n > 0.
ceiling(T(2*n,2^n)/n) = A131520(n+2), n > 0.
Previous Showing 11-19 of 19 results.