|
%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
| 