login
Sums of distinct nonzero terms of A007489: a(n) = Sum_{k>=0} A030308(n,k)*A007489(1+k).
3

%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