|
|
|
|
#13 by Vaclav Kotesovec at Fri Mar 05 07:01:37 EST 2021
|
|
|
|
#12 by Vaclav Kotesovec at Fri Mar 05 07:01:32 EST 2021
|
| MATHEMATICA
|
FoldList[Times, 1, Table[Hypergeometric2F1[-n, n + 1, 1, -1], {n, 1, 15}]]
|
| STATUS
|
approved
editing
|
|
|
|
#11 by Joerg Arndt at Thu Mar 04 07:04:07 EST 2021
|
|
|
|
#10 by Alois P. Heinz at Thu Mar 04 05:40:18 EST 2021
|
|
|
Discussion
|
Thu Mar 04
| 05:52
| Vaclav Kotesovec: Thank you, Alois!
|
|
|
|
#9 by Alois P. Heinz at Thu Mar 04 05:40:12 EST 2021
|
|
|
|
#8 by Alois P. Heinz at Thu Mar 04 05:40:09 EST 2021
|
| MAPLE
|
b:= proc(n) option remember; `if`(n<1, 1,
(3*(2*n-1)*b(n-1) -(n-1)*b(n-2))/n)
end:
a:= proc(n) a(n):=`if`(n=0, 1, a(n-1)*b(n)) end:
seq(a(n), n=0..15); # Alois P. Heinz, Mar 04 2021
|
| STATUS
|
proposed
editing
|
|
|
|
#7 by Michel Marcus at Thu Mar 04 05:38:07 EST 2021
|
|
|
|
#6 by Michel Marcus at Thu Mar 04 05:38:03 EST 2021
|
| PROG
|
(PARI) D(n) = sum(k=0, n, binomial(n, k)*binomial(n+k, k)); \\ A001850
a(n) = prod(k=0, n, D(k)); \\ Michel Marcus, Mar 04 2021
|
| STATUS
|
proposed
editing
|
|
|
|
#5 by Vaclav Kotesovec at Thu Mar 04 05:02:55 EST 2021
|
|
|
|
#4 by Vaclav Kotesovec at Thu Mar 04 05:01:50 EST 2021
|
| LINKS
|
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DelannoyNumber.html">Delannoy Number</a>.
|
|
|
|