%I #17 Sep 08 2022 08:45:14
%S 1,1,1,2,2,3,4,4,5,6,8,9,10,12,13,16,18,19,22,24,27,30,32,35,38,42,45,
%T 48,52,55,60,64,67,72,76,81,86,90,95,100,106,111,116,122,127,134,140,
%U 145,152,158,165,172,178,185,192,200,207,214,222,229,238,246,253,262,270,279,288
%N G.f.: (1+x^10)/((1-x)*(1-x^3)*(1-x^5)).
%D G. van der Geer, Hilbert Modular Surfaces, Springer-Verlag, 1988; p. 188.
%H G. C. Greubel, <a href="/A097920/b097920.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Mo#Molien">Index entries for Molien series</a>
%H <a href="/index/Rec#order_09">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,1,-1,1,-1,0,-1,1).
%t CoefficientList[Series[(1+x^10)/((1-x)(1-x^3)(1-x^5)), {x,0,70}], x] (* _Harvey P. Dale_, Jul 23 2011 *)
%o (PARI) x='x+O('x^30); Vec((1+x^10)/((1-x)(1-x^3)(1-x^5))) \\ _G. C. Greubel_, Dec 20 2017
%o (Magma) I:=[1, 2, 2, 3, 4, 4, 5, 6, 8]; [1,1] cat [n le 9 select I[n] else Self(n-1) + Self(n-3) - Self(n-4) + Self(n-5) - Self(n-6) - Self(n-8) + Self(n-9): n in [1..30]]; // _G. C. Greubel_, Dec 20 2017
%K nonn,easy
%O 0,4
%A _N. J. A. Sloane_, Sep 05 2004
|