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

A379288 Irregular triangle read by rows in which row n lists the odd divisors of n excluding odd divisors e for which there exists another divisor j with j < e < 2*j.

Original entry on oeis.org

1, 1, 1, 3, 1, 1, 5, 1, 1, 7, 1, 1, 3, 9, 1, 5, 1, 11, 1, 1, 13, 1, 7, 1, 3, 15, 1, 1, 17, 1, 1, 19, 1, 1, 3, 7, 21, 1, 11, 1, 23, 1, 1, 5, 25, 1, 13, 1, 3, 9, 27, 1, 1, 29, 1, 1, 31, 1, 1, 3, 11, 33, 1, 17, 1, 5, 35, 1, 1, 37, 1, 19, 1, 3, 13, 39, 1, 1, 41, 1, 1, 43
Offset: 1

Views

Author

Omar E. Pol, Dec 21 2024

Keywords

Comments

The excluded divisors are the odd divisors e listed in A005279.
Conjecture 1: the row lengths are given by A237271 (true for at least the first 10000 terms of A237271)
From Hartmut F. W. Hoft, Jan 09 2025: (Start)
Proof of Conjecture 1:
An entire part of SRS(n), n = 2^k * q with k >= 0 and q odd, up to the diagonal is described in row n of A249223 by a 1 in position d, an odd divisor of n, 0's in positions d-1 and 2^(k+1) * f, f >= d an odd divisor of n, and nonzero numbers that increase or decrease by 1 in between.
The odd divisors e of n with d < e < 2^(k+1) * f are the "e" odd divisors of A005279 since for divisor s of n, d < s < e < 2*s < 2^(k+1) * f holds.
The odd divisors u of n greater than A003056(n) are encoded by the 2^(k+1) * f above as u = q/f and odd divisors d < A003056(n) are also encoded as 2^(k+1) * q/d. Then odd divisors e of n with q/f < e < 2^(k+1) * q/d are the "e" odd divisors of A005279 since for divisor t of n, q/f < t < e < 2*t < 2^(k+1) * q/d holds.
For a part containing the diagonal the inequalities above hold on the respective sides of the diagonal.
As a consequence the number of entries in row n of this triangle equals A237271(n). (End)
From Omar E. Pol, Jun 26 2025: (Start)
Conjecture 2: T(n,m) is the smallest number in the m-th 2-dense sublist of divisors of n.
We call "2-dense sublists of divisors of n" to the maximal sublists of divisors of n whose terms increase by a factor of at most 2.
In a 2-dense sublist of divisors of n the terms are in increasing order and two adjacent terms are the same two adjacent terms in the list of divisors of n.
If the conjecture is true so row sums give A379379 and the row lengths give A237271, and the same row lengths have the sequences A384222, A384225 and A384226. Also the conjecture of A384149 should be true.
Observation: at least for the first 5000 rows (the first 15542 terms) the conjecture 2 coincides with the definition from the Name section and the row lengths give A237271.
An example of the conjecture 2, for n = 1..24 is as shown below:
-------------------------------------------------------------------
| n | Row n of | List of divisors of n | Number of |
| | the triangle | [with sublists in brackets] | sublists |
--------------------------------------------------------------------
| 1 | 1; | [1]; | 1 |
| 2 | 1; | [1, 2]; | 1 |
| 3 | 1, 3; | [1], [3]; | 2 |
| 4 | 1; | [1, 2, 4]; | 1 |
| 5 | 1, 5; | [1], [5]; | 2 |
| 6 | 1; | [1, 2, 3, 6]; | 1 |
| 7 | 1, 7; | [1], [7]; | 2 |
| 8 | 1; | [1, 2, 4, 8]; | 1 |
| 9 | 1, 3, 9; | [1], [3], [9]; | 3 |
| 10 | 1, 5; | [1, 2], [5, 10]; | 2 |
| 11 | 1, 11; | [1], [11]; | 2 |
| 12 | 1; | [1, 2, 3, 4, 6, 12]; | 1 |
| 13 | 1, 13; | [1], [13]; | 2 |
| 14 | 1, 7; | [1, 2], [7, 14]; | 2 |
| 15 | 1, 3, 15; | [1], [3, 5], [15]; | 3 |
| 16 | 1; | [1, 2, 4, 8, 16]; | 1 |
| 17 | 1, 17; | [1], [17]; | 2 |
| 18 | 1; | [1, 2, 3, 6, 9, 18]; | 1 |
| 19 | 1, 19; | [1], [19]; | 2 |
| 20 | 1; | [1, 2, 4, 5, 10, 20]; | 1 |
| 21 | 1, 3, 7, 21; | [1], [3], [7], [21]; | 4 |
| 22 | 1, 11; | [1, 2], [11, 22]; | 2 |
| 23 | 1, 23; | [1], [23]; | 2 |
| 24 | 1; | [1, 2, 3, 4, 6, 8, 12, 24]; | 1 |
...
For n = 10 the list of divisors of 10 is [1, 2, 5, 10]. There are two 2-dense sublists of divisors of 10, they are [1, 2], [5, 10]. The smallest numbers in the sublists are [1, 5] respectively, so the row 10 is [1, 5].
For n = 15 the list of divisors of 15 is [1, 3, 5, 15]. There are three 2-dense sublists of divisors of 15, they are [1], [3, 5], [15]. The smallest numbers in the sublists are [1, 3, 15] respectively, so the row 15 is [1, 3, 15].
78 is the first practical number A005153 not in A174973. For n = 78 the list of divisors of 78 is [1, 2, 3, 6, 13, 26, 39, 78]. There are two 2-dense sublists of divisors of 78, they are [1, 2, 3, 6] and [13, 26, 39, 78]. The smallest numbers in the sublists are [1, 13] respectively, so the row 78 is [1, 13].
(End)
Conjecture 3: T(n,m) is the m-th divisor p of n such that p is greater than twice the adjacent previous divisor of n. - Omar E. Pol, Aug 02 2025

Crossrefs

These are the odd terms of A379374.
Subsequence of A182469.
Row sums give A379379.

Programs

  • Mathematica
    row[n_] := Module[{d = Partition[Divisors[n], 2, 1]}, Select[Join[{1}, Select[d, #[[2]] >= 2*#[[1]] &][[;; , 2]]], OddQ]]; Table[row[n], {n, 1, 50}] // Flatten (* Amiram Eldar, Dec 22 2024 *)

Extensions

More terms from Amiram Eldar, Dec 22 2024

A379379 Sum of odd divisors of n except the "e" odd divisors described in A005279.

Original entry on oeis.org

1, 1, 4, 1, 6, 1, 8, 1, 13, 6, 12, 1, 14, 8, 19, 1, 18, 1, 20, 1, 32, 12, 24, 1, 31, 14, 40, 1, 30, 1, 32, 1, 48, 18, 41, 1, 38, 20, 56, 1, 42, 1, 44, 12, 49, 24, 48, 1, 57, 31, 72, 14, 54, 1, 72, 1, 80, 30, 60, 1, 62, 32, 95, 1, 84, 1, 68, 18, 96, 41, 72, 1, 74
Offset: 1

Views

Author

Omar E. Pol, Dec 21 2024

Keywords

Comments

Shares infinitely many terms with A000593.
a(n) = A000593(n) if n is not in A005279.
a(n) < A000593(n) if n is in A005279.
Conjectures from Omar E. Pol, Aug 27 2025: (Start)
a(n) is the sum of the smallest numbers of the 2-dense sublists of divisors of n.
a(n) is the sum of the divisors p of n such that p is greater than twice the adjacent previous divisor of n. (End)

Crossrefs

Programs

  • Mathematica
    a[n_] := Module[{d = Partition[Divisors[n], 2, 1]}, 1 + Total[Select[d, OddQ[#[[2]]] && #[[2]] >= 2*#[[1]] &][[;; , 2]]]]; Array[a, 100] (* Amiram Eldar, Dec 22 2024 *)

Extensions

More terms from Alois P. Heinz, Dec 22 2024

A379384 Sum of the divisors of n except the "e" divisors described in A005279.

Original entry on oeis.org

1, 3, 4, 7, 6, 9, 8, 15, 13, 18, 12, 15, 14, 24, 19, 31, 18, 27, 20, 37, 32, 36, 24, 27, 31, 42, 40, 49, 30, 33, 32, 63, 48, 54, 41, 39, 38, 60, 56, 67, 42, 65, 44, 84, 49, 72, 48, 51, 57, 93, 72, 98, 54, 81, 72, 91, 80, 90, 60, 63, 62, 96, 95, 127, 84, 97, 68
Offset: 1

Views

Author

Omar E. Pol, Dec 22 2024

Keywords

Comments

Shares infinitely many terms with A000203.
a(n) = A000203(n) if n is not in A005279.
a(n) < A000203(n) if n is in A005279.

Crossrefs

Programs

  • Mathematica
    a[n_] := Module[{d = Partition[Divisors[n], 2, 1]}, 1 + Total[Select[d, #[[2]] >= 2*#[[1]] &][[;; , 2]]]]; Array[a, 100] (* Amiram Eldar, Dec 22 2024 *)

Extensions

More terms from Alois P. Heinz, Dec 22 2024

A379461 Irregular triangle read by rows in which row n lists the divisors m of n such that there is a divisor d of n with d < m < 2*d, or 0 if such divisors do not exist.

Original entry on oeis.org

0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 3, 4, 6, 0, 0, 5, 0, 0, 3, 9, 0, 5, 0, 0, 0, 3, 4, 6, 8, 12, 0, 0, 0, 7, 0, 3, 5, 6, 10, 15, 0, 0, 0, 0, 7, 3, 4, 6, 9, 12, 18, 0, 0, 0, 5, 8, 10, 0, 3, 7, 21, 0, 0, 5, 9, 15, 0, 0, 3, 4, 6, 8, 12, 16, 24, 0, 0, 0, 0, 0, 3, 9, 27, 0
Offset: 1

Views

Author

Omar E. Pol, Dec 23 2024

Keywords

Comments

The number of positive terms in row n is A174903(n).
The indices of the rows that contain a zero give A174905.
The indices of the rows that contain positive integers give A005279.
The positive integers in the n-th row are the missing divisors of n in the n-th row of A379374.
The odd integers in the n-th row are the missing odd divisors of n in the n-th row of A379288.

Examples

			Triangle begins:
  0;
  0;
  0;
  0;
  0;
  3;
  0;
  0;
  0;
  0;
  0;
  3, 4, 6;
  0;
  0;
  5;
  0;
  0;
  3, 9;
  0;
  5;
  ...
From _Omar E. Pol_, Apr 19 2025: (Start)
For n = 12 there are three divisors m of 12 such that there is a divisor d of 12 with d < m < 2*d. Those divisors are 3, 4 and 6 as shown below:
   d  <  m  <  2*d
--------------------
   1            2
   2     3      4
   3     4      6
   4     6      8
   6           12
  12           24
.
So the 12th row of the triangle is [3, 4, 6]. (End)
		

Crossrefs

Programs

  • Mathematica
    row[n_] := Module[{d = Partition[Divisors[n], 2, 1], e}, e = Select[d, #[[2]] < 2*#[[1]] &][[;; , 2]]; If[e == {}, {0}, e]]; Table[row[n], {n, 1, 55}] // Flatten (* Amiram Eldar, Dec 23 2024 *)

Extensions

More terms from Amiram Eldar, Dec 23 2024
Name changed by Omar E. Pol, Feb 05 2025

A383209 Irregular triangle read by rows in which row n lists the odd divisors m of n such that there is a divisor d of n with d < m < 2*d, or 0 if such odd divisors do not exist.

Original entry on oeis.org

0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 3, 0, 0, 5, 0, 0, 3, 9, 0, 5, 0, 0, 0, 3, 0, 0, 0, 7, 0, 3, 5, 15, 0, 0, 0, 0, 7, 3, 9, 0, 0, 0, 5, 0, 3, 7, 21, 0, 0, 5, 9, 15, 0, 0, 3, 0, 0, 0, 0, 0, 3, 9, 27, 0, 7, 0, 0, 0, 3, 5, 15, 0, 0, 9, 0, 0, 3, 11, 33, 0, 0, 0, 7, 0, 3, 9, 0, 0, 5, 25, 0, 11, 3, 39
Offset: 1

Views

Author

Omar E. Pol, Apr 19 2025

Keywords

Examples

			For n = 1..17 every row of the triangle has only one term.
For n = 18..30 the triangle is as shown below:
  3, 9;
  0;
  5;
  0;
  0;
  0;
  3;
  0;
  0;
  0;
  7;
  0;
  3, 5, 15;
  ...
For n = 30 there are three odd divisors m of 30 such that there is a divisor d of 30 with d < m < 2*d. Those odd divisors are 3, 5 and 15 as shown below:
   d  <  m  <  2*d
--------------------
   1            2
   2     3      4
   3     5      6
   5           10
   6           12
  10    15     20
  15           30
  30           60
.
So the 30th row of the triangle is [3, 5, 15].
.
For n = 78 there are two odd divisors m of 78 such that there is a divisor d of 78 with d < m < 2*d. Those odd divisors are 3 and 39 as shown below:
   d  <  m  <  2*d
--------------------
   1            2
   2     3      4
   3            6
   6           12
  13           26
  26    39     52
  39           78
  78          156
.
Note that 13 is an odd divisor of 78 but 13 does not qualify.
So the 78th row of the triangle is [3, 39].
		

Crossrefs

Also zeros and odd terms of A379461.
Row sums give A383147.
The number of positive terms in row n is A239657(n).

Programs

  • Mathematica
    row[n_] := Module[{d = Partition[Divisors[n], 2, 1], r}, r = Select[d, OddQ[#[[2]]] && #[[2]] < 2*#[[1]] &][[;; , 2]]; If[r == {}, {0}, r]]; Array[row, 80] // Flatten (* Amiram Eldar, Apr 19 2025 *)
Showing 1-5 of 5 results.