%I #8 Jun 22 2022 02:30:05
%S 1,4,8,12,16,40,24,36,90,126,48,112,546,72,108,96,160,352,168,120,256,
%T 2475,144,588,300,320,216,448,1216,240,810,420,288,1040,384,660,360,
%U 640,432,1408,540,504,480,600,648,1176,792,672,1500,576,2000,900,1824,1248
%N a(n) is the least number k such that A355030(k) = n, or -1 if no such k exists.
%H Amiram Eldar, <a href="/A355031/b355031.txt">Table of n, a(n) for n = 1..10000</a>
%t m[n_] := Length[Union[Total[#-1]& /@ f[n]]]; 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[60, 10^4] (* using the function f by _T. D. Noe_ at A162247 *)
%Y Cf. A000005, A001222, A162247, A355029, A355030.
%K nonn
%O 1,2
%A _Amiram Eldar_, Jun 16 2022