OFFSET
0,2
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..12
MAPLE
s:= proc(n) s(n):= `if`(n=0, 0, s(n-1)+1/(n*b(n))) end:
b:= proc(n) b(n):= 1+floor(1/((1-s(n-1))*n)) end:
a:= n-> denom(s(n+1))-denom(s(n)):
seq(a(n), n=0..10); # Alois P. Heinz, Oct 19 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 25 2024
EXTENSIONS
a(0)=1 prepended by Alois P. Heinz, Oct 19 2024
STATUS
approved