OFFSET
1,2
MATHEMATICA
seq[len_] := Module[{s = {}, sum = 0, t = 0}, Do[t++; While[Length[ContinuedFraction[sum + 1/t]] != n, t++]; sum += 1/t; AppendTo[s, t], {n, 1, len}]; s]; seq[23]
PROG
(PARI) s=0; t=0; for(n=1, 40, t++; while(length(contfrac(s+1/t)) != n, t++); s+=1/t; print1(t, ", "))
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Jun 05 2022
STATUS
approved