|
%I #7 Oct 14 2019 15:28:08
%S 1,5,9,49,89,489,889,4889,8889,48889,88889,488889,888889,4888889,
%T 8888889,48888889,88888889,488888889,888888889,4888888889,8888888889,
%U 48888888889,88888888889,488888888889,888888888889,4888888888889,8888888888889,48888888888889,88888888888889
%N Expansion of (1 + 4*x - 6*x^2) / ((1 - x) * (1 - 10*x^2)).
%C Number of even palindromes < 10^n.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PalindromicNumber.html">Palindromic Number</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (1,10,-10).
%t nmax = 28; CoefficientList[Series[(1 + 4 x - 6 x^2)/((1 - x) (1 - 10 x^2)), {x, 0, nmax}], x]
%t LinearRecurrence[{1, 10, -10}, {1, 5, 9}, 29]
%o (PARI) Vec((1 + 4*x - 6*x^2) / ((1 - x) * (1 - 10*x^2)) + O(x^30)) \\ _Michel Marcus_, Oct 13 2019
%Y Cf. A002113, A029951, A050250, A070199, A328332.
%K nonn,base,easy
%O 0,2
%A _Ilya Gutkovskiy_, Oct 12 2019
|
