A352030 Numbers n for which every part of the symmetric representation of sigma(n) has maximum width 2.
6, 12, 18, 20, 24, 28, 30, 36, 40, 42, 48, 54, 56, 66, 78, 80, 88, 96, 100, 102, 104, 108, 112, 114, 132, 138, 150, 156, 160, 162, 174, 176, 186, 192, 196, 200, 204, 208, 220, 222, 224, 228, 234, 246, 258, 260, 272, 276, 282, 294, 304, 306, 308, 318, 320, 324, 340, 342, 348
Offset: 1
Keywords
Examples
a(1) = 6 and a(3) = 18 each consist of a single part with respective width patterns 1 2 1 and 1 2 1 2 1 for their entire symmetric representation of sigma, i.e. their respective regular expressions are DD and DDE. a(15) = 78 is the first number whose entire symmetric representation of sigma consists of 2 parts with width pattern 1 2 1 0 1 2 1, i.e., its regular expression is DDEE (up to the diagonal). a(158) = 1014 is the first with 3 parts and a(1650) = 12246 the first with 4 parts in their symmetric representation of sigma.
Crossrefs
Programs
-
Mathematica
(* Function a237048[ ] is defined in A237048 *) t237048ToString[n_] := StringJoin[Map[If[OddQ[#], "D", "E"]&, Flatten[Position[a237048[n], 1]]]] patternTestQ[s_] := StringMatchQ[s, RegularExpression["(DD(ED)*EE)+|(DD(ED)*EE)*DD(ED)*E|(DD(ED)*EE)*DD(ED)*"]] a352030[n_] := Select[Range[n], patternTestQ[t237048ToString[#]]&] a352030[350]
Comments