A068444 a(0) = 10; for n>0, a(n) = n*a(n-1)-n-2.

10, 7, 10, 25, 94, 463, 2770, 19381, 155038, 1395331, 13953298, 153486265, 1841835166, 23943857143, 335213999986, 5028209999773, 80451359996350, 1367673119937931, 24618116158882738, 467744207018772001, 9354884140375439998, 196452566947884239935, 4321956472853453278546

Offset

0,1

References

From a quiz.

Links

G. C. Greubel, Table of n, a(n) for n = 0..448

Mathematica

RecurrenceTable[{a[0]==10, a[n]==n*a[n-1]-n-2}, a, {n, 20}] (* Harvey P. Dale, Oct 20 2015 *)

Prog

(PARI) s=10; for(n=1, 30, s=n*s-n-2; print1(s, ", "); );
(Magma) I:=[7]; [10] cat [n le 1 select I[n] else  n*Self(n-1)-n-2: n in [1..30]]; // G. C. Greubel, Mar 11 2018

Crossrefs

Sequence in context: A098592 A016731 A324087 * A210285 A190996 A210283

Adjacent sequences: A068441 A068442 A068443 * A068445 A068446 A068447

Keyword

nonn,easy

Author

Nancy Zhang, Feb 24 2002

Extensions

More terms from Benoit Cloitre, Mar 10 2002

Terms a(20) onward added by G. C. Greubel, Mar 11 2018

Status

approved