|
|
A015583
|
|
a(0) = 0, a(1) = 1; for n >= 2, a(n) = 9*a(n-1) + 7*a(n-2).
|
|
3
|
|
|
0, 1, 9, 88, 855, 8311, 80784, 785233, 7632585, 74189896, 721137159, 7009563703, 68134033440, 662273246881, 6437397456009, 62572489832248, 608214190682295, 5911935144966391, 57464915639473584, 558567786770026993, 5429364490406558025, 52774254921049211176
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
a:=proc(n) option remember: if n=0 then 0 elif n=1 then 1 else 9*procname(n-1)+7*procname(n-2) fi: end; seq(a(n), n=0..22); # Muniru A Asiru, Jul 15 2018
|
|
MATHEMATICA
|
|
|
PROG
|
(Sage) [lucas_number1(n, 9, -7) for n in range(0, 19)] # Zerinvary Lajos, Apr 26 2009
(Magma) [n le 2 select n-1 else 9*Self(n-1) + 7*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 15 2012
(PARI) x='x+O('x^30); concat([0], Vec(1/(1-9*x-7*x^2))) \\ G. C. Greubel, Jan 06 2018
(GAP) a:=[0, 1];; for n in [3..22] do a[n]:=9*a[n-1]+7*a[n-2]; od; a; # Muniru A Asiru, Jul 15 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|