A226061 Partial sums of A219661.

0, 1, 3, 8, 27, 110, 538, 3149, 21622, 172348, 1549896, 15401144, 168011252, 2003304293, 25928878272, 361788001015, 5411160126367, 86353882249911, 1464841397585335, 26323224850512719, 499551889319197565

Offset: 1

Author

Antti Karttunen, May 28 2013

Keywords

• nonn

Comments

a(n) tells the position of (n!)-1 in A219666.

Crossrefs

One less than A219665.

Cf. A219661, A219666.

Analogous sequence for binary system: A218600.

Cf. also A230410, A231719.

Programs

Mathematica

Accumulate@ Table[Length@ NestWhileList[# - Total@ IntegerDigits[#,
MixedRadix[Reverse@ Range[2, 120]]] &, (n + 1)! - 1, # > n! - 1 &] - 1, {n, 0, 8}] (* Michael De Vlieger, Jun 27 2016, Version 10.2 *)

Formula

a(n) = a(n-1) + A219661(n-1) with a(1) = 0.

a(n) = A219652(n!-1).

a(n) = A219665(n) - 1.

Extensions

Terms a(16) - a(21) computed from the new terms of A219661 by Antti Karttunen, Jun 27 2016