A213169 n!+n+1.

2, 3, 5, 10, 29, 126, 727, 5048, 40329, 362890, 3628811, 39916812, 479001613, 6227020814, 87178291215, 1307674368016, 20922789888017, 355687428096018, 6402373705728019, 121645100408832020, 2432902008176640021

Offset

0,1

Comments

Can be used to detect triangular tables whose rows sum to n! when decreased by 1.

References

RC Castillo, On the Sum of Corresponding Factorials and Triangular Numbers: Runsums, Trapezoids and Politeness, Asia Pacific Journal of Multidisciplinary Research, 3 (2015), 95-101.

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Mathematica

Table[n! + n + 1, {n, 0, 20}]

Prog

(Maxima) A213169(n):=n!+n+1$
makelist(A213169(n), n, 0, 30); /* Martin Ettl, Nov 03 2012 */

Crossrefs

Cf. A000142, A038507, A005095.

Sequence in context: A132183 A259878 A003504 * A330333 A003182 A348260

Adjacent sequences: A213166 A213167 A213168 * A213170 A213171 A213172

Keyword

nonn,easy

Author

Olivier Gérard, Nov 02 2012

Status

approved