|
%I #12 Jan 30 2022 02:34:34
%S 1,2,4,6,8,9,14,13,17,20,23,22,31,28,33,38,40,39,49,45,54,57,58,57,70,
%T 68,71,76,81,78,93,86,94,98,99,104,116,109,114,119,128,123,138,131,
%U 140,149,146,145,162,158,166,168,173,170,185,184,193,194,195,194
%N Number of partitions of 2n in which any two distinct parts differ by at least n.
%H Vaclav Kotesovec, <a href="/A319776/b319776.txt">Table of n, a(n) for n = 0..10000</a> (terms 0..2000 from Alois P. Heinz)
%F a(n) = A218698(2n,n).
%p g:= proc(n,i) option remember;
%p add(`if`(irem(n, j)=0, 1, 0), j=1..i)
%p end:
%p a:= proc(n) option remember; numtheory[tau](2*n)+
%p add(g(2*n-j, min(2*n-j, j-n)), j=n+1..2*n-1)
%p end: a(0):=1:
%p seq(a(n), n=0..100);
%t g[n_, i_] := g[n, i] = Sum[If[Mod[n, j] == 0, 1, 0], {j, 1, i}];
%t a[n_] := a[n] = DivisorSigma[0, 2n] + Sum[g[2n - j, Min[2n - j, j - n]], {j, n + 1, 2n - 1}]; a[0] = 1;
%t a /@ Range[0, 100] (* _Jean-François Alcover_, Dec 12 2020, after _Alois P. Heinz_ *)
%Y Cf. A218698.
%K nonn
%O 0,2
%A _Alois P. Heinz_, Sep 27 2018
|
