A155196
a(n)=7*a(n-1)+a(n-2), n>2 ; a(0)=1, a(1)=6, a(2)=42 .
Original entry on oeis.org
1, 6, 42, 300, 2142, 15294, 109200, 779694, 5567058, 39749100, 283810758, 2026424406, 14468781600, 103307895606, 737624050842, 5266676251500, 37604357811342, 268497180930894, 1917084624327600, 13688089551224094
Offset: 0
-
Join[{1},LinearRecurrence[{7,1},{6,42},20]] (* Harvey P. Dale, Sep 04 2014 *)
A155197
a(n) = 8*a(n-1) + a(n-2) for n>2, with a(0)=1, a(1)=7, a(2)=56.
Original entry on oeis.org
1, 7, 56, 455, 3696, 30023, 243880, 1981063, 16092384, 130720135, 1061853464, 8625547847, 70066236240, 569155437767, 4623309738376, 37555633344775, 305068376496576, 2478102645317383, 20129889539035640, 163517218957602503
Offset: 0
-
a:=proc(n) option remember; if n=0 then 1 elif n=1 then 7 elif n=2 then 56 else 8*a(n-1)+a(n-2); fi; end: seq(a(n), n=0..30); # Wesley Ivan Hurt, Jan 28 2017
-
LinearRecurrence[{8, 1}, {1, 7, 56}, 20] (* or *)
CoefficientList[Series[(1 - x - x^2)/(1 - 8 x - x^2), {x, 0, 19}], x] (* or *)
{1, 7}~Join~Table[Simplify[# (14/17) ((4 + #)^n - (4 - #)^n) + (7/2) ((4 + #)^n + (4 - #)^n) + Mod[Binomial[2 n, n], 2]] &@ Sqrt@ 17, {n, 18}] (* Michael De Vlieger, Jan 30 2017 *)
A155198
a(n)=9*a(n-1)+a(n-2), n>2 ; a(0)=1, a(1)=8, a(2)=72 .
Original entry on oeis.org
1, 8, 72, 656, 5976, 54440, 495936, 4517864, 41156712, 374928272, 3415511160, 31114528712, 283446269568, 2582130954824, 23522624862984, 214285754721680, 1952094417358104, 17783135510944616, 162000314015859648
Offset: 0
A155199
a(n) = 10*a(n-1) + a(n-2), n > 2 ; a(0) = 1, a(1) = 9, a(2) = 90.
Original entry on oeis.org
1, 9, 90, 909, 9180, 92709, 936270, 9455409, 95490360, 964359009, 9739080450, 98355163509, 993290715540, 10031262318909, 101305913904630, 1023090401365209, 10332209927556720, 104345189676932409, 1053784106696880810, 10642186256645740509, 107475646673154285900
Offset: 0
-
LinearRecurrence[{10,1},{1,9,90},20] (* Harvey P. Dale, Dec 20 2022 *)