%I #14 Mar 19 2017 19:40:03
%S 0,1,3,4,9,10,12,13,33,34,36,37,42,43,45,46,153,154,156,157,162,163,
%T 165,166,186,187,189,190,195,196,198,199,873,874,876,877,882,883,885,
%U 886,906,907,909,910,915,916,918,919,1026,1027,1029,1030,1035,1036,1038,1039,1059,1060,1062,1063,1068,1069,1071,1072,5913
%N Sums of distinct nonzero terms of A007489: a(n) = Sum_{k>=0} A030308(n,k)*A007489(1+k).
%C Indexing starts from zero, with a(0) = 0.
%H Antti Karttunen, <a href="/A283984/b283984.txt">Table of n, a(n) for n = 0..8191</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%H <a href="/index/Fa#facbase">Index entries for sequences related to factorial base representation</a>
%F a(n) = Sum_{i=0..A070939(n)} A030308(n,i)*A007489(1+i).
%F a(n) = A276075(A283477(n)).
%F Other identities. For all n >= 0:
%F a(2^n) = A007489(n+1).
%o (PARI)
%o A007489(n) = sum(k=1, n, k!);
%o A030308(n,k) = bittest(n,k);
%o A283984(n) = sum(i=0,(#binary(n)-1),A030308(n,i)*A007489(1+i));
%o (Scheme) (define (A283984 n) (A276075 (A283477 n)))
%Y Cf. A000142, A007489, A030308, A059590, A070939, A276075, A276091, A283477, A283985.
%K nonn
%O 0,3
%A _Antti Karttunen_, Mar 19 2017