A341971 Irregular triangle read by rows in which row n lists the values in row n of A235791 whose indices are in row n of A341970; a number is signed when its index is even.
1, 2, 3, -1, 4, 5, -2, 6, 1, 7, -3, 8, 9, -4, 2, 10, -1, 11, -5, 12, 3, 13, -6, 14, -2, 15, -7, 4, 1, 16, 17, -8, 18, 5, -3, 19, -9, 20, 2, 21, -10, 6, -1, 22, -4, 23, -11, 24, 7, 25, -12, 3, 26, -5, 27, -13, 8, -2, 28, 1, 29, -14, 30, 9, -6, 4, 31, -15
Offset: 1
Examples
Triangle begins: 1 2 3 -1 4 5 -2 6 1 7 -3 8 9 -4 2 10 -1 11 -5 12 3 13 -6 14 -2 15 -7 4 1 16 17 -8 18 5 -3 19 -9 20 2 21 -10 6 -1 ... a(26)..a(29) = { 15, -7, 4, 1 } is row 15 in this sequence with corresponding row 15 { 1, 1, 1, 0, 1 } in A237048. The sum 15 - 7 = 8 represents the first (complete) part of the symmetric representation of sigma(15), while 4 gives to incomplete bottom subpart of the central part and 1 the complete subpart of the second layer on the diagonal of the central part. Because of the double counting on the diagonal the completed subparts of the symmetric central part have size 7 and 1 respectively, see A280851, so that the parts of the symmetric representation of sigma(15) are (8, 8, 8). a(40)..a(43) = { 21, -10, 6, -1 } is row 21 in this sequence with corresponding row 21 { 1, 1, 1, 0, 0, 1 } in A237048. The sums 21 - 10 = 11 and 6 - 1 = 5 denote the sizes of the two (complete) parts of width 1 of the symmetric representation of sigma(21) up to the diagonal resulting in the four parts ( 11, 5, 5, 11 ).
Crossrefs
Programs
-
Mathematica
(* Function a341970[ ] is defined in A341970 *) widthL[n_] := Rest[FoldList[#1+If[OddQ[#2], +1, -1]&, 0, a341970[n]]] sT[n_] := Map[(-1)^(#+1) Ceiling[(n+1)/# - (#+1)/2]&, a341970[n]] a341971[n_] := Flatten[Map[sT, Range[n]]] a341971[31] (* first 31 rows of table *)
Comments