login
A355031
a(n) is the least number k such that A355030(k) = n, or -1 if no such k exists.
4
1, 4, 8, 12, 16, 40, 24, 36, 90, 126, 48, 112, 546, 72, 108, 96, 160, 352, 168, 120, 256, 2475, 144, 588, 300, 320, 216, 448, 1216, 240, 810, 420, 288, 1040, 384, 660, 360, 640, 432, 1408, 540, 504, 480, 600, 648, 1176, 792, 672, 1500, 576, 2000, 900, 1824, 1248
OFFSET
1,2
LINKS
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jun 16 2022
STATUS
approved