Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the 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