A131677 a(n) = (Product_{i=1..7} n^i+i) / 7!.
1, 8, 274725, 8903032600, 21521701559085, 9892478959203456, 1527238784041075105, 109733832449349303000, 4483781212288588835625, 118795734924428077310080, 2233888850312257843810061, 31811523551546985038211552, 359951182400070234774044725
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Table[Product[ n^i + i, {i, 1, 7}]/7!, {n, 0, 12}] (* Michael De Vlieger, Jan 03 2016 *) -
PARI
A131677(n,k=7)=prod(i=1,k,(n^i+i))/k! \\ Changing the optional 2nd argument allows one to produce A000027 (k=1), A064808 (k=2), A131509 (k=3), A129995 (k=4), A131675 (k=5), ..., A131680 (k=10). - M. F. Hasler, May 02 2015
Extensions
Definition made explicit by M. F. Hasler, May 02 2015
Comments