A355033 a(n) is the least number k such that A355032(k) = n, or -1 if no such k exists.

1, 36, 72, 288, 960, 720, 1440, 3456, 2880, 6912, 5760, 10080, 11520, 8640, 24192, 21600, 47520, 17280, 28800, 20160, 62208, 46080, 82944, 34560, 50400, 40320, 57600, 51840, 110880, 126720, 141120, 69120, 60480, 248832, 86400, 80640, 233280, 237600, 103680, 100800

Offset: 1

Author

Amiram Eldar, Jun 16 2022

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..250

Crossrefs

Cf. A000005, A001222, A162247, A355030, A355031, A355032.

Programs

Mathematica

m[n_] := Max[Tally[Total[# - 1] & /@ f[n]][[;; , 2]]]; seq[len_, max_] := Module[{s = Table[0, {len}], c = 0, n = 1, k}, While[c < len && n < max, k = m[n]; If[k <= len && s[[k]] == 0, c++; s[[k]] = n]; n++]; s]; seq[30, 10^6] (* using the function f by T. D. Noe at A162247 *)