OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..16000
MAPLE
b:= proc() 0 end:
g:= proc(n) option remember; local t;
t:= `if`(n<2, n, b(g(n-1))+b(g(n-2)));
b(t):= b(t)+1; t
end:
f:= proc(n) option remember; b(g(n)) end:
a:= proc() local l, t; t, l:= -1, proc() -1 end;
proc(k) local h;
while l(k)<0 do t:= t+1; h:= f(t);
if l(h)<0 then l(h):= t fi
od: l(k)
end
end():
seq(a(n), n=1..60);
MATHEMATICA
b[_] = 0;
g[n_] := g[n] = Module[{t}, t = If[n < 2, n, b[g[n-1]] + b[g[n-2]]]; b[t]++; t];
f[n_] := f[n] = b[g[n]];
A[n_, k_] := Module[{l, t = -1, h}, l[_] = {}; While[Length[l[k]] < n, t++; h = f[t]; AppendTo[l[h], t]]; l[k][[n]]];
a[k_] := A[1, k];
Table[a[n], {n, 1, 60}] (* Jean-François Alcover, Dec 13 2023, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Dec 18 2019
STATUS
approved