A295423 a(n) = size of the part containing the diagonal of the symmetric representation of sigma(k) when k is the n-th number with an odd number of parts.
1, 3, 7, 12, 15, 3, 28, 8, 31, 39, 42, 60, 5, 56, 72, 63, 12, 91, 90, 96, 32, 124, 7, 15, 120, 120, 168, 16, 127, 144, 36, 195, 18, 186, 9, 224, 180, 234, 20, 252, 21, 20, 217, 210, 280, 48, 248, 22, 360, 11, 312, 255, 54, 336, 104, 336, 24, 403, 372, 26, 54, 392, 378, 363, 26, 480, 13, 66
Offset: 1
Keywords
Examples
a(4) = 12 since A071562(4) = 6 and row 6 of A237270 is (12). a(8) = 8 since A071562(8) = 15 and row 15 of A237270 is (8, 8, 8). a(23) = 7 since A071562(23) = 49 and row 49 of A237270 is (25, 7, 25). a(16) = 63 since A071562(16) = 32 and row 32 of A237270 is (63). Possible layouts for the middle of sizes 4, 6, 10 and 14 with possible Dyck path continuations: area: 4 6 10 14 _|_ _ _|_ _|_ _ | |_ _ _|_ _ | |_ | |_ |_ | | | | |_ |_ |_ |_ |_ |_ _|_ |_ _ _|_ |_ | |_ | | | |_ _|_ |_ _|_ | |
Programs
-
Mathematica
(* function a237270[] is defined in A237270 and the property *) (* on odd divisors is used to minimize computations with a237270 *) row[n_] := Floor[(Sqrt[8n+1]-1)/2] evenExp[n_] := First[NestWhile[{#[[1]]+1, #[[2]]/2}&, {0,n}, EvenQ[Last[#]]&]] oddSRQ[n_] := Module[{e=2^evenExp[n], r=row[n]}, Select[Divisors[n/e], #<=r&&2 e #>r&]!={}] middle[list_] := list[[Ceiling[Length[list]/2]]] a295423[m_, n_] := Map[middle[a237270[#]]&, Select[Range[m, n], oddSRQ]] a295423[1, 170] (* data *)
Comments