login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A121945 a(n) is the sum of the first n factorials in decreasing powers from n to 1. a(n) = Sum_{k = 1..n} k!^(n-k+1). 1
1, 3, 11, 69, 929, 30273, 2591057, 614059329, 423463272449, 907403624202753, 6082394749206781697, 140440480114401911810049, 10845109029138237198786147329, 3088811811740393517911301490890753, 3220352134317904958924570965080200574977, 12657255883388612328426763834234183884771442689 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

G. C. Greubel, Table of n, a(n) for n = 1..58

MAPLE

seq(add(factorial(j)^(n-j+1), j=1..n), n=1..20); # G. C. Greubel, Oct 07 2019

MATHEMATICA

Table[Sum[Factorial[i]^(n-i+1), {i, n}], {n, 20}]

PROG

(PARI) vector(20, n, sum(j=1, n, (j!)^(n-j+1)) ) \\ G. C. Greubel, Oct 07 2019

(MAGMA) [(&+[Factorial(j)^(n-j+1): j in [1..n]]): n in [1..20]]; // G. C. Greubel, Oct 07 2019

(Sage) [sum(factorial(j)^(n-j+1) for j in (1..n)) for n in (1..20)] # G. C. Greubel, Oct 07 2019

(GAP) List([1..20], n-> Sum([1..n], j-> Factorial(j)^(n-j+1)) ); # G. C. Greubel, Oct 07 2019

CROSSREFS

Similar to A003101 = Sum_{k = 1..n} (n-k+1)^k - only with inserted factorials.

Sequence in context: A074504 A126115 A018193 * A009025 A009103 A018192

Adjacent sequences:  A121942 A121943 A121944 * A121946 A121947 A121948

KEYWORD

nonn,changed

AUTHOR

Tanya Khovanova, Sep 03 2006

EXTENSIONS

More terms from G. C. Greubel, Oct 07 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 19 04:40 EDT 2019. Contains 328211 sequences. (Running on oeis4.)