Revision History for A307212
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
|
|
|
#19 by Peter Luschny at Tue Apr 02 14:34:42 EDT 2019
|
|
|
|
#18 by Peter Luschny at Tue Apr 02 14:34:30 EDT 2019
|
| MAPLE
|
a := n -> mul(k^T(n, k), k=0..n): lprint(seq(a(n), n=21..10));
|
| CROSSREFS
|
Cf. A307157, A307181, A307307.
|
| STATUS
|
reviewed
editing
|
|
|
|
#17 by Emeric Deutsch at Tue Apr 02 10:22:46 EDT 2019
|
|
|
|
#16 by Emeric Deutsch at Tue Apr 02 08:56:40 EDT 2019
|
|
|
|
#15 by Emeric Deutsch at Tue Apr 02 08:56:32 EDT 2019
|
| DATA
|
0, 2, 3, 256, 38880, 1289945088, 42855402240000000, 605828739547255327948800000000, 13263549731442762279026688000000000000000000000000000, 1334793240853871268746431553848403294648071618560000000000000000000000000000000000000000000
|
| OFFSET
|
2,1
1,2
|
| MAPLE
|
a := n -> mul(k^T(n, k), k=10..n): lprint(seq(a(n), n=2..10));
|
| CROSSREFS
|
Cf. A307157., A307181, A307307
|
| STATUS
|
approved
editing
|
|
|
|
#14 by Peter Luschny at Sat Mar 30 04:24:53 EDT 2019
|
|
|
|
#13 by Peter Luschny at Fri Mar 29 17:35:28 EDT 2019
|
|
|
Discussion
|
Fri Mar 29
| 19:40
| Emeric Deutsch: I do not understand. I just copied the above given Maple program to my Maple program and it works:
2, 3, 256, 38880, ...
My T function is defined as the coefficient of x^n y^k of G.
|
Sat Mar 30
| 03:53
| Peter Luschny: Just copy the code from your submission to Maple and try it, you will get: 2^T(2, 2), 2^T(3, 2)*3^T(3, 3), 2^T(4, 2)*3^T(4, 3)*4^T(4, 4), ... It's fixed now.
|
| 04:06
| Emeric Deutsch: Thanks. Please submit.
|
|
|
|
#12 by Peter Luschny at Fri Mar 29 17:35:24 EDT 2019
|
|
|
|
#11 by Peter Luschny at Fri Mar 29 17:34:59 EDT 2019
|
| DATA
|
2, 3, 256, 38880, 1289945088, 42855402240000000, 605828739547255327948800000000, 13263549731442762279026688000000000000000000000000000, 1334793240853871268746431553848403294648071618560000000000000000000000000000000000000000000
|
| MAPLE
|
G:=( := (1+(1-y)*x+x^2*y^2+(1-y)*x^3*y-(1-y)^2*x^4*y)/((1-x*y)*(1-x^2*y)-x^3*y): g:=expand(series(G, x=0, 40)): T(n, k):=coeff(coeff(g, x, n), y, k):a:=n->mul(k^T(n, k), k=1..n): seq(a(n), n=2..9);
g := expand(series(G, x=0, 40)): T := (n, k) -> coeff(coeff(g, x, n), y, k):
a := n -> mul(k^T(n, k), k=1..n): lprint(seq(a(n), n=2..10));
|
| STATUS
|
reviewed
editing
|
|
|
Discussion
|
Fri Mar 29
| 17:35
| Peter Luschny: A piece of the T-function had apparently been lost.
|
|
|
|
#10 by Emeric Deutsch at Fri Mar 29 01:58:11 EDT 2019
|
|
|
|
|