|
%I #9 Jul 21 2018 12:22:03
%S 1,1,1,2,4,8,16,32,64,128,256,512,1024,2047,4093,8185,16368,32732,
%T 65456,130896,261760,523456,1046784,2093312,4186112,8371200,16740352,
%U 33476610,66945033,133873694,267714648,535363824,1070596720,2140931616,4281339648,8561632256
%N Number of partitions of 1 into exactly 10*n+1 powers of 1/11.
%H Alois P. Heinz, <a href="/A295081/b295081.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = A294775(n,10).
%p b:= proc(n, r) option remember; `if`(n<r, 0, `if`(r=0,
%p `if`(n=0, 1, 0), add(b(n-j, 11*(r-j)), j=0..min(n, r))))
%p end:
%p a:= n-> b(10*n+1, 1):
%p seq(a(n), n=0..40);
%t b[n_, r_] := b[n, r] = If[n<r, 0, If[r==0, If[n==0, 1, 0], Sum[b[n-j, 11(r-j)], {j, 0, Min[n, r]}]]];
%t a[n_] := b[10n+1, 1];
%t Array[a, 40, 0] (* _Jean-François Alcover_, Jul 21 2018, from Maple *)
%Y Column k=10 of A294775.
%K nonn
%O 0,4
%A _Alois P. Heinz_, Nov 13 2017
|
