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.

Showing 1-10 of 10 results.

A273103 Sum of the elements of the difference triangle of the divisors of n (including the divisors of n).

Original entry on oeis.org

1, 4, 6, 11, 10, 21, 14, 26, 25, 31, 22, 52, 26, 41, 54, 57, 34, 86, 38, 66, 72, 61, 46, 103, 71, 71, 90, 102, 58, 205, 62, 120, 108, 91, 134, 157, 74, 101, 126, 75, 82, 329, 86, 174, 218, 121, 94, 110, 141, 158, 162, 210, 106, 373, 202, 269, 180, 151, 118, -437, 122, 161, 250
Offset: 1

Views

Author

Omar E. Pol, May 15 2016

Keywords

Comments

a(n) is the sum of the n-th slice of the tetrahedron A273102.
First differs from A187215 at a(14).

Examples

			For n = 14 the divisors of 14 are 1, 2, 7, 14, and the difference triangle of the divisors is
1 . 2 . 7 . 14
. 1 . 5 . 7
. . 4 . 2
. . .-2
The sum of all elements of the triangle is 1 + 2 + 7 + 14 + 1 + 5 + 7 + 4 + 2 - 2 = 41, so a(14) = 41.
Note that A187215(14) = 45.
		

Crossrefs

Programs

  • Mathematica
    Table[Total@ Flatten@ NestWhileList[Differences, Divisors@ n, Length@ # > 1 &], {n, 63}] (* Michael De Vlieger, May 17 2016 *)
  • PARI
    a(n) = {my(d = divisors(n)); my(s = vecsum(d)); for (k=1, #d-1, d = vector(#d-1, n, d[n+1] - d[n]); s += vecsum(d);); s;} \\ Michel Marcus, May 16 2016

Formula

a(n) = 2n, if n is prime.
a(2^k) = A125128(k+1), k >= 0.

Extensions

More terms from Michel Marcus, May 16 2016

A187207 Irregular triangle read by rows in which row n lists the k=A000005(n) divisors of n in decreasing order, followed by the lists of their absolute differences up to order k-1.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Aug 02 2011

Keywords

Examples

			Triangle begins:
[1];
[2, 1], [1];
[3, 1], [2];
[4, 2, 1], [2, 1], [1];
[5, 1], [4];
[6, 3, 2, 1], [3, 1, 1], [2, 0], [2];
[7, 1], [6];
[8, 4, 2, 1], [4, 2, 1], [2, 1], [1];
[9, 3, 1], [6, 2], [4];
[10, 5, 2, 1], [5, 3, 1], [2, 2], [0];
The terms of each row can form a regular triangle, for example row 10:
10, 5, 2, 1;
. 5, 3, 1;
.   2, 2;
.    0;
		

Crossrefs

Row n has length A184389(n) = A000217(A000005(n)). Row sums give A187215. Last terms of rows give A187203. Columns 1,2 give: A000027, A032742.

Programs

  • Maple
    with(numtheory):
    DD:= l-> [seq(abs(l[i]-l[i-1]), i=2..nops(l))]:
    T:= proc(n) local l;
          l:= sort([divisors(n)[]], `>`);
          seq((DD@@i)(l)[], i=0..nops(l)-1);
        end:
    seq(T(n), n=1..20); # Alois P. Heinz, Aug 03 2011
  • Mathematica
    row[n_] := (dd = Divisors[n]; Table[Differences[dd, k] // Reverse // Abs, {k, 0, Length[dd]-1}]); Table[row[n], {n, 1, 20}] // Flatten (* Jean-François Alcover, May 18 2016 *)

A272121 Absolute difference table of the divisors of the positive integers (with every table read by antidiagonals downwards).

Original entry on oeis.org

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

Views

Author

Omar E. Pol, May 18 2016

Keywords

Comments

This is an irregular tetrahedron T(n,j,k) in which the slice n lists the elements of the j-th antidiagonal of the absolute difference triangle of the divisors of n.
The first row of the slice n is also the n-th row of the triangle A027750.
The bottom entry of the slice n is A187203(n).
The number of elements in the n-th slice is A000217(A000005(n)) = A184389(n).
The sum of the elements of the n-th slice is A187215(n).
If n is a power of 2 the antidiagonals are also the divisors of the powers of 2 from 1 to n in decreasing order, for example if n = 8 the finite sequence of antidiagonals is [1], [2, 1], [4, 2, 1], [8, 4, 2, 1].
First differs from A273135 at a(92).
Note that this sequence is not the absolute values of A273135. For example a(135) = 0 and A273135(135) = 4.

Examples

			The tables of the first nine positive integers are
  1; 1, 2; 1, 3; 1, 2, 4; 1, 5; 1, 2, 3, 6; 1, 7; 1, 2, 4, 8; 1, 3, 9;
     1;    2;    1, 2;    4;    1, 1, 3;    6;    1, 2, 4;    2, 6;
                 1;             0, 2;             1, 2;       4;
                                2;                1;
For n = 18 the absolute difference table of the divisors of 18 is
  1, 2, 3, 6, 9, 18;
  1, 1, 3, 3, 9;
  0, 2, 0, 6;
  2, 2, 6;
  0, 4;
  4;
This table read by antidiagonals downwards gives the finite subsequence [1], [2, 1], [3, 1, 0], [6, 3, 2, 2], [9, 3, 0, 2, 0], [18, 9, 6, 6, 4, 4].
		

Crossrefs

Programs

  • Mathematica
    Table[Table[#[[m - k + 1, k]], {m, Length@ #}, {k, m, 1, -1}] &@ NestWhileList[Abs@ Differences@ # &, Divisors@ n, Length@ # > 1 &], {n, 15}] // Flatten (* Michael De Vlieger, Jun 26 2016 *)

A273104 Absolute difference table of the divisors of the positive integers.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, May 15 2016

Keywords

Comments

This is an irregular tetrahedron T(n,j,k) read by rows in which the slice n lists the elements of the rows of the absolute difference triangle of the divisors of n (including the divisors of n).
The first row of the slice n is also the n-th row of the triangle A027750.
The bottom entry of the slice n is A187203(n).
The sum of the elements of the slice n is A187215(n).
For another version see A273102 from which differs at a(92).

Examples

			For n = 18 the divisors of 18 are 1, 2, 3, 6, 9, 18, so the absolute difference triangle of the divisors of 18 is
1 . 2 . 3 . 6 . 9 . 18
. 1 . 1 . 3 . 3 . 9
. . 0 . 2 . 0 . 6
. . . 2 . 2 . 6
. . . . 0 . 4
. . . . . 4
and the 18th slice is
1, 2, 3, 6, 9, 18;
1, 1, 3, 3, 9;
0, 2, 0, 6;
2, 2, 6;
0, 4;
4;
The tetrahedron begins:
1;
1, 2;
1;
1, 3;
2;
1, 2, 4;
1, 2;
1;
...
This is also an irregular triangle T(n,r) read by rows in which row n lists the absolute difference triangle of the divisors of n flattened.
Row lengths are the terms of A184389. Row sums give A187215.
Triangle begins:
1;
1, 2, 1;
1, 3, 2;
1, 2, 4, 1, 2, 1;
...
		

Crossrefs

Programs

  • Mathematica
    Table[Drop[FixedPointList[Abs@ Differences@ # &, Divisors@ n], -2], {n, 15}] // Flatten (* Michael De Vlieger, May 16 2016 *)

A273132 Absolute difference table of the divisors of the positive integers (with every table read by antidiagonals upwards).

Original entry on oeis.org

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

Views

Author

Omar E. Pol, May 18 2016

Keywords

Comments

This is an irregular tetrahedron T(n,j,k) in which the slice n lists the elements of the j-th antidiagonal of the absolute difference triangle of the divisors of n.
The first row of the slice n is also the n-th row of the triangle A027750.
The bottom entry of the slice n is A187203(n).
The number of elements in the n-th slice is A000217(A000005(n)) = A184389(n).
The sum of the elements of the n-th slice is A187215(n).
If n is a power of 2 the antidiagonals are also the divisors of the powers of 2 from 1 to n, for example if n = 8 the finite sequence of antidiagonals is [1], [1, 2], [1, 2, 4], [1, 2, 4, 8].
First differs from A272210 at a(89).
Note that this sequence is not the absolute values of A272210. For example a(131) = 0 and A272210(131) = 4.

Examples

			The tables of the first nine positive integers are
  1; 1, 2; 1, 3; 1, 2, 4; 1, 5; 1, 2, 3, 6; 1, 7; 1, 2, 4, 8; 1, 3, 9;
     1;    2;    1, 2;    4;    1, 1, 3;    6;    1, 2, 4;    2, 6;
                 1;             0, 2;             1, 2;       4;
                                2;                1;
For n = 18 the absolute difference table of the divisors of 18 is
  1, 2, 3, 6, 9, 18;
  1, 1, 3, 3, 9;
  0, 2, 0, 6;
  2, 2, 6;
  0, 4;
  4;
This table read by antidiagonals upwards gives the finite subsequence [1], [1, 2], [0, 1, 3], [2, 2, 3, 6], [0, 2, 0, 3, 9], [4, 4, 6, 6, 9, 18].
		

Crossrefs

Programs

  • Mathematica
    Table[Table[#[[m - k + 1, k]], {m, Length@ #}, {k, m}] &@ NestWhileList[Abs@ Differences@ # &, Divisors@ n, Length@ # > 1 &], {n, 15}] // Flatten (* Michael De Vlieger, Jun 26 2016 *)

A274531 Irregular triangle read by rows: T(n,k) = sum of the elements of the k-th row of the absolute difference table of the divisors of n.

Original entry on oeis.org

1, 3, 1, 4, 2, 7, 3, 1, 6, 4, 12, 5, 2, 2, 8, 6, 15, 7, 3, 1, 13, 8, 4, 18, 9, 4, 0, 12, 10, 28, 11, 5, 4, 3, 1, 14, 12, 24, 13, 6, 2, 24, 14, 8, 8, 31, 15, 7, 3, 1, 18, 16, 39, 17, 8, 10, 4, 4, 20, 18, 42, 19, 11, 4, 5, 1, 32, 20, 12, 8, 36, 21, 10, 6, 24, 22, 60, 23, 11, 10, 6, 5, 2, 2, 31, 24, 16, 42, 25, 12, 8
Offset: 1

Views

Author

Omar E. Pol, Jun 27 2016

Keywords

Comments

Row 2^k gives the first k+1 positive terms of A000225 in decreasing order, k >= 0.
If n is prime then row n contains only two terms: n+1 and n-1.
Note that this sequence is not the absolute values of A273261.
First differs from A273261 at a(41).

Examples

			Triangle begins:
1;
3, 1;
4, 2;
7, 3, 1;
6, 4;
12, 5, 2, 2;
8, 6;
15, 7, 3, 1;
13, 8, 4;
18, 9, 4, 0;
12, 10;
28, 11, 5, 4, 3, 1;
14, 12;
24, 13, 6, 2;
24, 14, 8, 8;
31, 15, 7, 3, 1;
18, 16;
39, 17, 8, 10, 4, 4;
20, 18;
42, 19, 11, 4, 5, 1;
32, 20, 12, 8;
36, 21, 10, 6;
24, 22;
60, 23, 11, 10, 6, 5, 2, 2;
31, 24, 16;
42, 25, 12, 8;
...
For n = 18 the divisors of 18 are 1, 2, 3, 6, 9, 18, and the absolute difference triangle of the divisors is
1, 2, 3, 6, 9, 18;
1, 1, 3, 3, 9;
0, 2, 0, 6;
2, 2, 6;
0, 4;
4;
The row sums give [39, 17, 8, 10, 4, 4] which is also the 18th row of the irregular triangle.
		

Crossrefs

Row lengths give A000005. Column 1 is A000203. Right border gives A187203. Row sums give A187215.

Programs

  • Mathematica
    Map[Total, #, {2}] &@ Table[NestWhileList[Abs@ Differences@ # &, #, Length@ # > 1 &] &@ Divisors@ n, {n, 26}] // Flatten (* Michael De Vlieger, Jun 27 2016 *)

A274532 Irregular triangle read by rows: T(n,k) = sum of the elements of the k-th antidiagonal of the absolute difference table of the divisors of n.

Original entry on oeis.org

1, 1, 3, 1, 5, 1, 3, 7, 1, 9, 1, 3, 4, 13, 1, 13, 1, 3, 7, 15, 1, 5, 19, 1, 3, 10, 17, 1, 21, 1, 3, 4, 5, 11, 28, 1, 25, 1, 3, 16, 25, 1, 5, 7, 41, 1, 3, 7, 15, 31, 1, 33, 1, 3, 4, 13, 14, 47, 1, 37, 1, 3, 7, 7, 25, 39, 1, 5, 13, 53, 1, 3, 28, 41, 1, 45, 1, 3, 4, 5, 11, 12, 22, 61, 1, 9, 61, 1, 3, 34, 49, 1, 5, 19, 65
Offset: 1

Views

Author

Omar E. Pol, Jun 27 2016

Keywords

Comments

If n is prime then row n contains only two terms: 1 and 2*n-1.
Row 2^k gives the first k+1 positive terms of A000225, k >= 0.
Note that this sequence is not the absolute values of A273262.
First differs from A273262 at a(41).

Examples

			Triangle begins:
1;
1, 3;
1, 5;
1, 3, 7;
1, 9;
1, 3, 4, 13;
1, 13;
1, 3, 7, 15;
1, 5, 19;
1, 3, 10, 17;
1, 21;
1, 3, 4, 5, 11, 28;
1, 25;
1, 3, 16, 25;
1, 5, 7, 41;
1, 3, 7, 15, 31;
1, 33;
1, 3, 4, 13, 14, 47;
1, 37;
1, 3, 7, 7, 25, 39;
1, 5, 13, 53;
1, 3, 28, 41;
1, 45;
1, 3, 4, 5, 11, 12, 22, 61;
1, 9, 61;
1, 3, 34, 49;
1, 5, 19, 65;
...
For n = 18 the divisors of 18 are 1, 2, 3, 6, 9, 18, and the absolute difference triangle of the divisors is
1, 2, 3, 6, 9, 18;
1, 1, 3, 3, 9;
0, 2, 0, 6;
2, 2, 6;
0, 4;
4;
The antidiagonal sums give [1, 3, 4, 13, 14, 47] which is also the 18th row of the irregular triangle.
		

Crossrefs

Row lengths give A000005. Column 1 is A000012. Row sums give A187215.

Programs

  • Mathematica
    Table[Map[Total, Table[#[[m - k + 1, k]], {m, Length@ #}, {k, m}], {1}] &@ NestWhileList[Abs@ Differences@ # &, Divisors@ n, Length@ # > 1 &], {n, 27}] // Flatten (* Michael De Vlieger, Jun 27 2016 *)

A187209 Sum of all terms of triangle of absolute differences of the divisors of n.

Original entry on oeis.org

0, 1, 2, 4, 4, 9, 6, 11, 12, 13, 10, 24, 12, 21, 30, 26, 16, 43, 18, 40, 40, 37, 22, 59, 40, 45, 50, 52, 28, 89, 30, 57, 60, 61, 86, 90, 36, 69, 70, 103, 40, 125, 42, 88, 140, 85, 46, 128, 84, 97, 90, 106, 52, 165, 130, 113, 100, 109, 58, 201
Offset: 1

Views

Author

Omar E. Pol, Aug 04 2011

Keywords

Comments

Note that if n is prime then a(n) = n - 1.

Examples

			a(10) = 13 because the divisors of 10 are 1, 2, 5, 10; the triangle of absolute differences is
1, 3, 5;
. 2, 2;
.   0;
and the sum of the terms of triangle is 1+3+5+2+2+0 = 13.
		

Crossrefs

Programs

  • Mathematica
    Table[Total[Flatten[NestList[Abs[Differences[#]]&,Differences[Divisors[ n]], DivisorSigma[0,n]-1]]],{n,60}] (* Harvey P. Dale, Aug 10 2011 *)

Formula

a(n) = A187215(n) - A000203(n).

A273137 Absolute difference table of the divisors of the positive integers (with every table read by columns).

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Jun 26 2016

Keywords

Comments

This is an irregular tetrahedron in which T(n,j,k) is the k-th element of the j-th column of the absolute difference table of the divisors of n.
The first row of the slice n is also the n-th row of the triangle A027750.
The bottom entry of the slice n is A187203(n).
The number of elements in the n-th slice is A000217(A000005(n)) = A184389(n).
The sum of the elements of the n-th slice is A187215(n).
If n is a power of 2 the subsequence lists the elements of the absolute difference table of the divisors of n in nondecreasing order, for example if n = 8 the finite sequence of columns is [1, 1, 1, 1], [2, 2, 2], [4, 4], [8].
Note that this sequence is not the absolute values of A273136.
First differs from A273136 at a(86).

Examples

			The tables of the first nine positive integers are
1; 1, 2; 1, 3; 1, 2, 4; 1, 5; 1, 2, 3, 6; 1, 7; 1, 2, 4, 8; 1, 3, 9;
.  1;    2;    1, 2;    4;    1, 1, 3;    6;    1, 2, 4;    2, 6;
.              1;             0, 2;             1, 2;       4;
.                             2;                1;
.
For n = 18 the absolute difference table of the divisors of 18 is
1, 2, 3, 6, 9, 18;
1, 1, 3, 3, 9;
0, 2, 0, 6;
2, 2, 6;
0, 4;
4;
This table read by columns gives the finite subsequence [1, 1, 0, 2, 0, 4], [2, 1, 2, 2, 4], [3, 3, 0, 6], [6, 3, 6], [9, 9], [18].
		

Crossrefs

Programs

  • Mathematica
    Table[Transpose@ Map[Function[w, PadRight[w, Length@ #]], NestWhileList[Abs@ Differences@ # &, #, Length@ # > 1 &]] &@ Divisors@ n, {n, 15}] /. 0 -> {} // Flatten (* Michael De Vlieger, Jun 26 2016 *)

A274533 Irregular triangle read by rows: T(n,k) = sum of the elements of the k-th column of the absolute difference table of the divisors of n.

Original entry on oeis.org

1, 2, 2, 3, 3, 3, 4, 4, 5, 5, 4, 5, 6, 6, 7, 7, 4, 6, 8, 8, 7, 9, 9, 4, 7, 10, 10, 11, 11, 4, 6, 8, 10, 12, 12, 13, 13, 8, 9, 14, 14, 11, 13, 15, 15, 5, 8, 12, 16, 16, 17, 17, 8, 11, 12, 15, 18, 18, 19, 19, 7, 10, 10, 15, 20, 20, 13, 17, 21, 21, 16, 13, 22, 22, 23, 23, 6, 7, 10, 12, 16, 20, 24, 24, 21, 25, 25
Offset: 1

Views

Author

Omar E. Pol, Jun 29 2016

Keywords

Comments

If n is prime then row n is [n, n].
It appears that the last two terms of the n-th row are [n, n], n > 1.
Note that this sequence is not the absolute values of A273263.
First differs from A273263 at a(38).

Examples

			Triangle begins:
   1;
   2,  2;
   3,  3;
   3,  4,  4;
   5,  5;
   4,  5,  6,  6;
   7,  7;
   4,  6,  8,  8;
   7,  9,  9;
   4,  7, 10, 10;
  11, 11;
   4,  6,  8, 10, 12, 12;
  13, 13;
   8,  9, 14, 14;
  11, 13, 15, 15;
   5,  8, 12, 16, 16;
  17, 17;
   8, 11, 12, 15, 18, 18;
  19, 19;
   7, 10, 10, 15, 20, 20;
  13, 17, 21, 21;
  16, 13, 22, 22;
  23, 23;
   6,  7, 10, 12, 16, 20, 24, 24;
  21, 25, 25;
  20, 15, 26, 26;
  ...
For n = 18 the divisors of 18 are 1, 2, 3, 6, 9, 18, and the absolute difference triangle of the divisors is
  1,  2,  3,  6,  9, 18;
  1,  1,  3,  3,  9;
  0,  2,  0,  6;
  2,  2,  6;
  0,  4;
  4;
The column sums give [8, 11, 12, 15, 18, 18] which is also the 18th row of the irregular triangle.
		

Crossrefs

Row lengths give A000005. Right border gives A000027. Row sums give A187215.

Programs

  • Mathematica
    Table[Total /@ Table[#[[m - k + 1, -k]], {m, Length@ #, 1, -1}, {k, m}] &@ NestWhileList[Abs@ Differences@ # &, Divisors@ n, Length@ # > 1 &], {n, 25}] // Flatten (* Michael De Vlieger, Jun 29 2016 *)
Showing 1-10 of 10 results.