A319846 Irregular triangle read by rows in which row n lists the odd divisors of n in decreasing order together with the even divisors of n in decreasing order.
1, 1, 2, 3, 1, 1, 4, 2, 5, 1, 3, 1, 6, 2, 7, 1, 1, 8, 4, 2, 9, 3, 1, 5, 1, 10, 2, 11, 1, 3, 1, 12, 6, 4, 2, 13, 1, 7, 1, 14, 2, 15, 5, 3, 1, 1, 16, 8, 4, 2, 17, 1, 9, 3, 1, 18, 6, 2, 19, 1, 5, 1, 20, 10, 4, 2, 21, 7, 3, 1, 11, 1, 22, 2, 23, 1, 3, 1, 24, 12, 8, 6, 4, 2, 25, 5, 1, 13, 1, 26, 2, 27, 9, 3, 1
Offset: 1
Examples
Triangle begins: 1; 1, 2; 3, 1; 1, 4, 2; 5, 1; 3, 1, 6, 2; 7, 1; 1, 8, 4, 2; 9, 3, 1; 5, 1, 10, 2; 11, 1; 3, 1, 12, 6, 4, 2; 13, 1; 7, 1, 14, 2; 15, 5, 3, 1; 1, 16, 8, 4, 2; 17, 1; 9, 3, 1, 18, 6, 2; 19, 1; 5, 1, 20, 10, 4, 2; 21, 7, 3, 1; 11, 1, 22, 2; 23, 1; 3, 1, 24, 12, 8, 6, 4, 2; 25, 5, 1; 13, 1, 26, 2; 27, 9, 3, 1; 7, 1, 28, 14, 4, 2; ... For n = 12 the divisors of 12 are [1, 2, 3, 4, 6, 12]. The odd divisors of 12 in decreasing order are [3, 1], and the even divisors of 12 in decreasing order are [12, 6, 4, 2], so the 12th row of triangle is [3, 1, 12, 6, 4, 2]. On the other hand, consider the diagram that appears in the Links section (figure 1). Then consider only the semicircumferences that contain the point [12,0]. In the second quadrant, from bottom to top, we can see the curves with diameters [4, 12]. Also we can see these curves in the fourth quadrant from top to bottom. The associated numbers c = 12/d are [3, 1] respectively. These are the odd divisors of 12 in decreasing order. Then, in the first quadrant, from bottom to top, we can see the curves with diameters [1, 2, 3, 6]. Also we can see these curves in the third quadrant from top to bottom. The associated numbers c = 12/d are [12, 6, 4, 2] respectively. These are the even divisors of n in decreasing order. Finally all numbers c obtained are [3, 1, 12, 6, 4, 2] equaling the 12th row of triangle.
Links
Crossrefs
Programs
-
Mathematica
Table[With[{d=Divisors[n]},Join[Reverse[Select[d,OddQ]],Reverse[Select[d,EvenQ]]]],{n,30}]//Flatten (* Harvey P. Dale, Mar 10 2023 *)
-
PARI
row(n) = my(d=divisors(n)); concat(Vecrev(select(x->(x%2), d)), Vecrev(select(x->!(x%2), d))); lista(nn) = {for (n=1, nn, my(r = row(n)); for (k=1, #r, print1(r[k], ", ")););} \\ Michel Marcus, Jan 17 2019
Comments