OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
Michael De Vlieger, Plot a(w(j) + k - 1) at (j,k) for j = 1..512 and w the sequence of partial sums of A030719, showing a(m) = 1 in red and a(m) > 1 in light blue.
MATHEMATICA
nn = 102; c[_] = 0; m = k = a[1] = c[1] = 1; {1}~Join~Reap[Do[w = Union@ Array[a, k]; Do[If[Set[a[j + k], c[w[[j]]]] == 1, Sow[j + k]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w], {nn}]][[-1, -1]] (* Michael De Vlieger, Nov 15 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved