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

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

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

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

Cf. A000005, A001222, A162247, A355029, A355030.

Sequence in context: A334386 A071072 A175670 * A194374 A061085 A007883

Adjacent sequences: A355028 A355029 A355030 * A355032 A355033 A355034

Keyword

nonn

Author

Amiram Eldar, Jun 16 2022

Status

approved