login
9th binomial transform of (1,0,1,0,1,...), A059841.
8

%I #45 Sep 08 2022 08:45:03

%S 1,9,82,756,7048,66384,631072,6048576,58388608,567108864,5536870912,

%T 54294967296,534359738368,5274877906944,52199023255552,

%U 517592186044416,5140737488355328,51125899906842624,509007199254740992,5072057594037927936,50576460752303423488

%N 9th binomial transform of (1,0,1,0,1,...), A059841.

%C Binomial transform of A081190.

%C Number of strings of length n of the decimal digits 0..9 that contain an even number of 0's.

%C An equivalent formulation is: a(n) is also the number of words of length n over an alphabet of ten letters with a chosen letter appearing an even number of times. See a comment in A007582, also for the cross references for the 1- to 11-letter word cases. - _Wolfdieter Lang_, Jul 17 2017

%H Harry J. Smith, <a href="/A060531/b060531.txt">Table of n, a(n) for n = 0..200</a>

%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (18,-80).

%F G.f.: (1 - 9*x)/((1 - 8*x)*(1 -10*x)).

%F E.g.f.: exp(9*x)*cosh(x).

%F a(n) = (8^n + 10^n)/2 = 2^(n-1)*(4^n + 5^n).

%F a(n) = 18*a(n-1) - 80*a(n-2), a(0) = 1, a(1) = 9.

%F a(n) = 8*a(n-1) + 10^(n-1), a(1) = 9.

%e For n = 1 there are 9 strings: {1 2 3 4 5 6 7 8 9};

%e for n = 2 there are 82: {00 11 12 13 14 15 16 17 18 19 21 ... 96 97 98 99}.

%p A060531 := proc(n) option remember: if n = 1 then RETURN(9) fi: 8*A060531(n-1) + 10^(n-1): end: for n from 1 to 40 do printf(`%d,`, A060531(n)) od:

%t Table[8^n/2 + 10^n/2, {n, 0, 19}] (* or *)

%t LinearRecurrence[{18, -80}, {1, 9}, 19] (* or *)

%t CoefficientList[Series[(1 - 9 x)/((1 - 8 x) (1 - 10 x)), {x, 0, 19}], x] (* _Michael De Vlieger_, Jul 17 2017 *)

%o (PARI) { for (n=0, 200, if (n==0, a=1, a=8*a + 10^(n - 1)); write("b060531.txt", n, " ", a); ) } \\ _Harry J. Smith_, Jul 06 2009

%o (Magma) [(8^n+10^n)/2: n in [0..20]]; // _Vincenzo Librandi_, Jul 18 2017

%Y Cf. A007582, A081192.

%K nonn,easy

%O 0,2

%A _N. J. A. Sloane_, Apr 12 2001

%E Additional comments from _Paul Barry_, Mar 11 2003

%E Typo in definition corrected by _Paolo P. Lava_, Sep 18 2008

%E Edited by and new name from _Wolfdieter Lang_, Jul 18 2017