|
%I #2 Mar 30 2012 17:30:42
%S 1,0,1,1,1,2,2,2,3,3,4,5,5,6,7,8,9,10,11,12,14,15,17,18,20,22,24,26,
%T 28,30,33,36,38,42,44,48,52,55,59,63,67,72,77,81,87,92,98,104,110,116,
%U 123,130,137,145,152,161,169,178,187,196,206,216,227,237,249,260,273,285
%N Expansion of 1/Product_{k=1..infinity} (1-x^A007097(k)).
%F G.f.: 1/((1-x^2)(1-x^3)(1-x^5)(1-x^11)...).
%t CoefficientList[ Series[1/Product[1 - x^Nest[Prime, 1, i], {i, 1, 6}], {x, 0, 75}], x]
%Y Cf. A007097.
%K nonn
%O 0,6
%A _Robert G. Wilson v_, Feb 11 2002
|
