A280107 Numbers m with the property that the symmetric representation of sigma(m) has four parts.
21, 27, 33, 39, 51, 55, 57, 65, 69, 75, 85, 87, 93, 95, 105, 111, 115, 119, 123, 125, 129, 133, 141, 145, 155, 159, 161, 175, 177, 183, 185, 201, 203, 205, 213, 215, 217, 219, 230, 235, 237, 245, 249, 250, 253, 259, 265, 267, 287, 290, 291, 295, 301, 303, 305, 309, 310, 319, 321, 327, 329
Offset: 1
Keywords
Examples
a(1) = 21 because it is the smallest number n whose symmetric representation of sigma(n) has four parts. Note that the sum of the parts is 11 + 5 + 5 + 11 = 32, equaling the sum of the divisors of 21: aigma(21) = 1 + 3 + 7 + 21 = 32. From _Hartmut F. W. Hoft_, Jan 27 2018: (Start) 230 = 2*5*23 is the first even number since 2^2 < 5, 2^2 * 5 < 23, and row 230 in A237048 has 20 entries with 1's in positions 1, 4, 5, and 20. Prime number 3 can be a factor for an even number in this sequence as 12246=2*3*13*157 demonstrates with the four parts 12252, 1020, 1020, and 12252 in the symmetric representation of sigma(12246) defined by 1's in positions 1, 3, 4, 12, 13, 39, 52, 156 in row 12246 of A237048; each of the four parts has maximum width 2 and the two central parts meet on the diagonal at 8492. (End)
Crossrefs
Programs
-
Mathematica
(* Function a237270[] is defined in A237270 *) a280107[m_, n_] := Select[Range[m, n], Length[a237270[#]]==4&] a280107[1, 329] (* data *) (* Implementation of the property in the Comment section *) evenPart[n_] := Module[{f=First[FactorInteger[n]]}, If[First[f]!=2, 1, First[f]^Last[f]]] fourPartsQ[n_] := Module[{e=evenPart[n], oddPart, r=(Sqrt[8*n + 1] - 1)/2, dL}, oddPart=n/evenPart[n]; dL=Select[Divisors[oddPart], #
1, 2*e*Last[dL]<=r && Length[Select[2*e*Most[dL]-Rest[dL], #<0&]]==1, False]]; Select[Range[329], fourPartsQ] (* data *) (* Hartmut F. W. Hoft, Jan 27 2018 *)
Comments