OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..4046
Michael De Vlieger, Plot a(s(j) + k - 1) at (j,k) for j = 1..512 and s = partial sums of A030719, showing a(m) = 7 in red, a(m) = 1 in medium blue for reference, and other values of a(m) in light blue.
MATHEMATICA
nn = 50; m = 7; c[_] = 0; k = a[1] = c[1] = 1; Reap[Do[w = Union@ Array[a, k]; Do[Set[a[j + k], c[w[[j]]]]; If[a[j + k] == m, Sow[m]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w], {n, nn}] ][[-1, -1]] (* Michael De Vlieger, Nov 19 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Nov 15 2022
STATUS
approved