|
|
A072899
|
|
Denominator of c(n) where c(0)=1 c(n+1) = n/c(n) + 1.
|
|
1
|
|
|
1, 1, 1, 1, 2, 5, 13, 19, 58, 191, 655, 1187, 4462, 17519, 71063, 149405, 646846, 2887921, 13237457, 31166057, 150303170, 742458253, 3748521653, 9670072483, 50903810666, 273315477775, 1495006933759, 4163946939067, 23599037077934
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
COMMENTS
|
Dvornicich et al proved that c(n) is an integer only for n<4, so that a(n)=1 only for n<4. - Michel Marcus, Dec 24 2020
|
|
LINKS
|
|
|
FORMULA
|
It seems that log(a(n)) is asymptotic to C*n*Log(n) with C=0.4....
|
|
MATHEMATICA
|
Denominator[RecurrenceTable[{c[1]==1, c[n]==(n-1)/c[n-1]+1}, c, {n, 30}]] (* Harvey P. Dale, Jun 11 2013 *)
|
|
PROG
|
(PARI) lista(nn) = {my(x = 1); for (n=0, nn, print1(denominator(x), ", "); x = 1+ n/x; ); } \\ Michel Marcus, Dec 24 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,frac,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|