|
|
A355033
|
|
a(n) is the least number k such that A355032(k) = n, or -1 if no such k exists.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|