OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..445
EXAMPLE
The table begins
1, 2, 5, 16, 65, 326, 1957, ...
2, 3, 7, 22, 89, 446, 2677, ...
3, 4, 9, 28, 113, 566, 3397, ...
4, 5, 11, 34, 137, 686, 4117, ...
...
MATHEMATICA
a[n_]:= Floor[E*(n-1)!] +(n-1)*(n-1)! -Boole[n==1];
Table[a[n], {n, 40}] (* G. C. Greubel, May 13 2023 *)
PROG
(Magma)
A084756:= func< n | n eq 1 select 1 else Floor(Exp(1)*Factorial(n-1)) + (n-1)*Factorial(n-1) >;
[A084756(n): n in [1..40]]; // G. C. Greubel, May 13 2023
(SageMath)
def A084756(n): return floor(e*factorial(n-1)) + (n-1)*factorial(n-1) - int(n==1)
[A084756(n) for n in range(1, 41)] # G. C. Greubel, May 13 2023
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 17 2003
EXTENSIONS
Edited and extended by David Wasserman, Jan 05 2005
STATUS
approved