A226061 - OEIS

%I #21 Jun 29 2016 00:08:06

%S 0,1,3,8,27,110,538,3149,21622,172348,1549896,15401144,168011252,

%T 2003304293,25928878272,361788001015,5411160126367,86353882249911,

%U 1464841397585335,26323224850512719,499551889319197565

%N Partial sums of A219661.

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

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

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

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

%t Accumulate@ Table[Length@ NestWhileList[# - Total@ IntegerDigits[#,

%t MixedRadix[Reverse@ Range[2, 120]]] &, (n + 1)! - 1, # > n! - 1 &] - 1, {n, 0, 8}] (* _Michael De Vlieger_, Jun 27 2016, Version 10.2 *)

%o (Scheme, with definec-macro from _Antti Karttunen_'s IntSeq-library):

%o (definec (A226061 n) (cond ((= 1 n) 0) (else (+ (A226061 (- n 1)) (A219661 (- n 1))))))

%Y One less than A219665.

%Y Cf. A219661, A219666.

%Y Analogous sequence for binary system: A218600.

%Y Cf. also A230410, A231719.

%K nonn

%O 1,3

%A _Antti Karttunen_, May 28 2013

%E Terms a(16) - a(21) computed from the new terms of A219661 by _Antti Karttunen_, Jun 27 2016