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,3

Comments

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

Links

Table of n, a(n) for n=1..21.

Formula

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

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

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

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 *)

Prog

(Scheme, with definec-macro from Antti Karttunen's IntSeq-library):
(definec (A226061 n) (cond ((= 1 n) 0) (else (+ (A226061 (- n 1)) (A219661 (- n 1))))))

Crossrefs

One less than A219665.

Cf. A219661, A219666.

Analogous sequence for binary system: A218600.

Cf. also A230410, A231719.

Sequence in context: A192856 A110886 A104854 * A294197 A030495 A074271

Adjacent sequences: A226058 A226059 A226060 * A226062 A226063 A226064

Keyword

nonn

Author

Antti Karttunen, May 28 2013

Extensions

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

Status

approved