OFFSET
1,6
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = A119444(n, n).
MATHEMATICA
t[1, n_]:= Fibonacci[n+1]; (* t = A119444 *)
t[m_, n_]/; 1<m<=n:= t[m, n]= (n-m+1)*Floor[(t[m-1, n] -1)/(n-m+1)];
t[_, _]= 0;
Table[A119445[n], {n, 60}] (* G. C. Greubel, Apr 07 2023 *)
PROG
(Magma)
function t(n, k) // t = A119444
if k eq 1 then return Fibonacci(n+1);
else return (n-k+1)*Floor((t(n, k-1) -1)/(n-k+1));
end if;
end function;
[t(n, n): n in [1..60]]; // G. C. Greubel, Apr 07 2023
(SageMath)
def t(n, k): # t = A119444
if (k==1): return fibonacci(n+1)
else: return (n-k+1)*((t(n, k-1) -1)//(n-k+1))
def A119445(n): return t(n, n)
[A119445(n) for n in range(1, 61)] # G. C. Greubel, Apr 07 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Joshua Zucker, May 20 2006
STATUS
approved