|
%I #11 Nov 25 2012 23:58:40
%S 0,0,1,1,2,2,5,5,6,6,7,7,10,10,11,11,12,12,15,15,16,16,17,17,23,23,24,
%T 24,25,25,28,28,29,29,30,30,33,33,34,34,35,35,38,38,39,39,40,40,46,46,
%U 47,47,48,48,51,51,52,52,53,53,56,56,57,57,58,58,61,61
%N a(n) = n minus (sum of digits in factorial base expansion of n).
%C See A007623 for the factorial base number system representation.
%H A. Karttunen, <a href="/A219651/b219651.txt">Table of n, a(n) for n = 0..10080</a>
%F a(n) = n - A034968(n).
%t (* First run program for A007623 to define factBaseIntDs *) Table[n - Plus@@factBaseIntDs[n], {n, 0, 99}] (* _Alonso del Arte_, Nov 25 2012 *)
%o (Scheme): (define (A219651 n) (- n (A034968 n)))
%Y Bisection: A219650. Analogous sequence for binary system: A011371, for Zeckendorf expansion: A219641.
%Y Cf. A219652-A219655, A219656, A219659, A219666.
%K nonn,base
%O 0,5
%A _Antti Karttunen_, Nov 25 2012
|
