|
|
A035318
|
|
Right-hand diagonal of A035309.
|
|
3
|
|
|
1, 1, 1, 10, 21, 483, 1485, 56628, 225225, 12317877, 59520825, 4304016990, 24325703325, 2208143028375, 14230536445125, 1564439686929000, 11288163762500625, 1463987089109939625, 11665426077721040625, 1749439028845202483250, 15230046989184655753125
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a[0] = a[1] = 1;
a[n_] := a[n] = ((4n-2) Mod[n, 2] a[n-1] + (n-1)(2n-3)(2n-1) a[n-2])/(n+1);
|
|
PROG
|
(PARI)
seq(N) = {
my(a = vector(N)); a[1] = a[2] = 1;
for (n = 3, N,
a[n] = ((4*n-2)*(n%2)*a[n-1] + (n-1)*(2*n-3)*(2*n-1)*a[n-2])/(n+1));
concat(1, a);
};
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|