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
These are the odd terms of
A379374.
-
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 *)
A384222
Irregular triangle read by rows: T(n,k) is the length of the k-th 2-dense sublist of divisors of n, with n >= 1, k >= 1.
Original entry on oeis.org
1, 2, 1, 1, 3, 1, 1, 4, 1, 1, 4, 1, 1, 1, 2, 2, 1, 1, 6, 1, 1, 2, 2, 1, 2, 1, 5, 1, 1, 6, 1, 1, 6, 1, 1, 1, 1, 2, 2, 1, 1, 8, 1, 1, 1, 2, 2, 1, 1, 1, 1, 6, 1, 1, 8, 1, 1, 6, 1, 1, 1, 1, 2, 2, 1, 2, 1, 9, 1, 1, 2, 2, 1, 1, 1, 1, 8, 1, 1, 8, 1, 1, 3, 3, 1, 4, 1, 2, 2, 1, 1, 10, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 3, 3, 1, 1, 8
Offset: 1
----------------------------------------------------------------
| n | Row n of | List of divisors of n | Number of |
| | the triangle | [with sublists in brackets] | sublists |
----------------------------------------------------------------
| 1 | 1; | [1]; | 1 |
| 2 | 2; | [1, 2]; | 1 |
| 3 | 1, 1; | [1], [3]; | 2 |
| 4 | 3; | [1, 2, 4]; | 1 |
| 5 | 1, 1; | [1], [5]; | 2 |
| 6 | 4; | [1, 2, 3, 6]; | 1 |
| 7 | 1, 1; | [1], [7]; | 2 |
| 8 | 4; | [1, 2, 4, 8]; | 1 |
| 9 | 1, 1, 1; | [1], [3], [9]; | 3 |
| 10 | 2, 2; | [1, 2], [5, 10]; | 2 |
| 11 | 1, 1; | [1], [11]; | 2 |
| 12 | 6; | [1, 2, 3, 4, 6, 12]; | 1 |
| 13 | 1, 1; | [1], [13]; | 2 |
| 14 | 2, 2; | [1, 2], [7, 14]; | 2 |
| 15 | 1, 2, 1; | [1], [3, 5], [15]; | 3 |
| 16 | 5; | [1, 2, 4, 8, 16]; | 1 |
| 17 | 1, 1; | [1], [17]; | 2 |
| 18 | 6; | [1, 2, 3, 6, 9, 18]; | 1 |
| 19 | 1, 1; | [1], [19]; | 2 |
| 20 | 6; | [1, 2, 4, 5, 10, 20]; | 1 |
| 21 | 1, 1, 1, 1; | [1], [3], [7], [21]; | 4 |
| 22 | 2, 2; | [1, 2], [11, 22]; | 2 |
| 23 | 1, 1; | [1], [23]; | 2 |
| 24 | 8; | [1, 2, 3, 4, 6, 8, 12, 24]; | 1 |
...
...
For n = 14 the list of divisors of 14 is [1, 2, 7, 14]. There are two sublists of divisors of 14 whose terms increase by a factor of at most 2, they are [1, 2] and [7, 14]. Each sublist has two terms, so the row 14 is [2, 2].
For n = 15 the list of divisors of 15 is [1, 3, 5, 15]. There are three sublists of divisors of 15 whose terms increase by a factor of at most 2, they are [1], [3, 5], [15]. The number of terms in the sublists are [1, 2, 1] respectively, so the row 15 is [1, 2, 1].
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 sublists of divisors of 78 whose terms increase by a factor of at most 2, they are [1, 2, 3, 6] and [13, 26, 39, 78]. The number of terms in the sublists are [4, 4] respectively, so the row 78 is [4, 4].
From _Omar E. Pol_, Jul 23 2025: (Start)
A visualization with symmetries of the list of divisors of the first 24 positive integers and the sublists of divisors is as shown below:
---------------------------------------------------------------------------------
| n | List of divisors of n | Number of |
| | [with sublists of divisors in brackets] | sublists |
---------------------------------------------------------------------------------
| 1 | [1] | 1 |
| 2 | [1 2] | 1 |
| 3 | [1] [3] | 2 |
| 4 | [1 2 4] | 1 |
| 5 | [1] [5] | 2 |
| 6 | [1 2 3 6] | 1 |
| 7 | [1] [7] | 2 |
| 8 | [1 2 4 8] | 1 |
| 9 | [1] [3] [9] | 3 |
| 10 | [1 2] [5 10] | 2 |
| 11 | [1] [11] | 2 |
| 12 | [1 2 3 4 6 12] | 1 |
| 13 | [1] [13] | 2 |
| 14 | [1 2] [7 14] | 2 |
| 15 | [1] [3 5] [15] | 3 |
| 16 | [1 2 4 8 16] | 1 |
| 17 | [1] [17] | 2 |
| 18 | [1 2 3 6 9 18] | 1 |
| 19 | [1] [19] | 2 |
| 20 | [1 2 4 5 10 20] | 1 |
| 21 | [1] [3] [7] [21] | 4 |
| 22 | [1 2] [11 22] | 2 |
| 23 | [1] [23] | 2 |
| 24 | [1 2 3 4 6 8 12 24] | 1 |
...
A similar structure show the positive integers in the square array A385000. (End)
Cf.
A000203,
A005153,
A027750,
A174973 (2-dense numbers),
A237271,
A379288,
A384149,
A384225,
A384226,
A384928,
A384930,
A384931,
A385000,
A386984,
A386989,
A387030.
A384225
Irregular triangle read by rows: T(n,k) is the number of odd divisors in the k-th 2-dense sublist of divisors of n, with n >= 1, k >= 1.
Original entry on oeis.org
1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 4, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4
Offset: 1
------------------------------------------------------------------
| 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, 1; | [1], [3]; | 2 |
| 4 | 1; | [1, 2, 4]; | 1 |
| 5 | 1, 1; | [1], [5]; | 2 |
| 6 | 2; | [1, 2, 3, 6]; | 1 |
| 7 | 1, 1; | [1], [7]; | 2 |
| 8 | 1; | [1, 2, 4, 8]; | 1 |
| 9 | 1, 1, 1; | [1], [3], [9]; | 3 |
| 10 | 1, 1; | [1, 2], [5, 10]; | 2 |
| 11 | 1, 1; | [1], [11]; | 2 |
| 12 | 2; | [1, 2, 3, 4, 6, 12]; | 1 |
| 13 | 1, 1; | [1], [13]; | 2 |
| 14 | 1, 1; | [1, 2], [7, 14]; | 2 |
| 15 | 1, 2, 1; | [1], [3, 5], [15]; | 3 |
| 16 | 1; | [1, 2, 4, 8, 16]; | 1 |
| 17 | 1, 1; | [1], [17]; | 2 |
| 18 | 3; | [1, 2, 3, 6, 9, 18]; | 1 |
| 19 | 1, 1; | [1], [19]; | 2 |
| 20 | 2; | [1, 2, 4, 5, 10, 20]; | 1 |
| 21 | 1, 1, 1, 1; | [1], [3], [7], [21]; | 4 |
...
For n = 14 the list of divisors of 14 is [1, 2, 7, 14]. There are two sublists of divisors of 14 whose terms increase by a factor of at most 2, they are [1, 2] and [7, 14]. Each sublist has only one odd number, so the row 14 is [1, 1].
For n = 15 the list of divisors of 15 is [1, 3, 5, 15]. There are three sublists of divisors of 15 whose terms increase by a factor of at most 2, they are [1], [3, 5], [15]. The number of odd numbers in the sublists are [1, 2, 1] respectively, so the row 15 is [1, 2, 1].
For n = 16 the list of divisors of 16 is [1, 2, 4, 8, 16]. There is only one sublist of divisors of 16 whose terms increase by a factor of at most 2, that is the same as the list of divisors of 16, which has five terms and only one odd number, so the row 16 is [1].
Cf.
A000203,
A027750,
A174973 (2-dense numbers),
A280940,
A237271,
A379288,
A384149,
A384222,
A384226,
A384928,
A384930,
A384931,
A385000,
A386984,
A386989,
A387030.
-
A384225row[n_] := Map[Count[#, _?OddQ] &, Split[Divisors[n], #2/# <= 2 &]];
Array[A384225row, 50] (* Paolo Xausa, Jul 08 2025 *)
Showing 1-3 of 3 results.
Comments