|
|
A122017
|
|
a(n) = if n even then a(n - 1) - (n - 1)*a(n - 2) otherwise 2*(a(n - 1) + (n - 1)*a(n - 2])).
|
|
0
|
|
|
1, 2, 1, 10, 7, 94, 59, 1246, 833, 21602, 14105, 460250, 305095, 11656190, 7689955, 341753230, 226403905, 11388911170, 7540044785, 425080891690, 281820040775, 17566875749150, 11648654892875, 796239842748350, 528320780212225
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a[0] = 1; a[1] = 2; a[n_] := a[n] = If[Mod[n, 2] == 0, a[n - 1] - (n - 1)*a[n - 2], 2*(a[n - 1] + (n - 1)*a[n - 2])] b = Table[a[n], {n, 0, 30}]
nxt[{n_, a_, b_}]:={n+1, b, If[OddQ[n], b-n*a, 2(b+n*a)]}; NestList[nxt, {1, 1, 2}, 30][[All, 2]] (* Harvey P. Dale, Jun 12 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|