OFFSET
1,2
COMMENTS
Each m appears exactly m times.
MATHEMATICA
W[n_, k_] := Fibonacci[k + 1] Floor[n*GoldenRatio] + (n - 1) Fibonacci[k];
t = Table[W[n - k + 1, k], {n, 300}, {k, n, 1, -1}];
Map[#[[1]] &, Most[Reap[NestWhileList[# + 1 &, 1,
Length[Sow[FirstPosition[t, #]]] > 1 &]][[2]][[1]]]]
(* Peter J. C. Moses, Feb 08 2023 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 09 2023
STATUS
approved