OFFSET
1,2
MATHEMATICA
terms = 71;
nmax = 3 terms;
A062854 = Table[u = If[n == 1, {}, Union[u, n Range[n]]]; Length[u], {n, 1, nmax + 1}] // Differences // Prepend[#, 1]&;
a108407[n_] := n + 1 - A062854[[n+1]];
Array[a108407, nmax] // Union // Rest // Take[#, terms]& (* Jean-François Alcover, Oct 02 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Jun 03 2005
STATUS
approved