|
|
A250070
|
|
Smallest number k such that the symmetric representation of sigma(k) has at least one part of width n.
|
|
27
|
|
|
1, 6, 60, 120, 360, 840, 3360, 2520, 5040, 10080, 15120, 32760, 27720, 50400, 98280, 83160, 110880, 138600, 221760, 277200, 332640, 360360, 554400, 960960, 831600, 942480, 720720
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The 26 entries starting with a(2) = 6 are products of powers of consecutive primes starting with 2, except for a(12) = 32760 and a(15) = 98280 (which are missing 11), and a(26) = 942480 (which is missing 13).
a(n) is the smallest number k such that the symmetric representation of sigma(k) has n layers. For more information see A279387. - Omar E. Pol, Dec 16 2016
|
|
LINKS
|
|
|
FORMULA
|
a(n) = min(k such that A250068(k) = n), n>=1.
|
|
EXAMPLE
|
a(60) = 3 since the symmetric representation of sigma(60) = 168 consists of a single region of whose successive widths are 41 1's, 9 2's, 6 3's, 7 2's, 6 3's, 9 2's, and 41 1's.
|
|
MATHEMATICA
|
(* function a2[ ] is defined in A249223 *)
a250070[{j_, k_}, b_] := Module[{i, max, acc={{1, 1}}}, For[i=j, i<=k, i++, max={Max[a2[i]], i}; If[max[[1]]>b && !MemberQ[Transpose[acc][[1]], max[[1]]], AppendTo[acc, max]]]; acc]
(* returns (argument, result) data pairs since sequence is non-monotonic *)
Sort[a250070[{1, 1000000}, 1]] (* computed in steps *)
|
|
CROSSREFS
|
Cf. A000203, A237270, A237271, A237593, A241008, A241010, A246955, A247687, A249223, A250071, A253258, A279387.
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|