Thanks to everyone who made a donation during our annual appeal! To see the list of donors, or make a donation, see the OEIS Foundation home page.
0,5
See A007623 for the factorial base number system representation.
A. Karttunen, Table of n, a(n) for n = 0..10080
a(n) = n - A034968(n).
(* First run program for A007623 to define factBaseIntDs *) Table[n - Plus@@factBaseIntDs[n], {n, 0, 99}] (* Alonso del Arte, Nov 25 2012 *)
(Scheme): (define (A219651 n) (- n (A034968 n)))
Bisection: A219650. Analogous sequence for binary system: A011371, for Zeckendorf expansion: A219641.
Cf. A219652-A219655, A219656, A219659, A219666.
Sequence in context: A208301 A069896 A053246 * A168391 A157123 A265764
Adjacent sequences: A219648 A219649 A219650 * A219652 A219653 A219654
nonn,base
Antti Karttunen, Nov 25 2012
approved