OFFSET
0,12
REFERENCES
R. W. Robinson, Numerical implementation of graph counting algorithms, AGRC Grant, Math. Dept., Univ. Newcastle, Australia, 1978.
LINKS
Andrew Howroyd, Rows n=0..20, flattened (rows 0..7 from R. W. Robinson)
EXAMPLE
Triangle begins:
n = 0
k = 0 : 1
************************ total ( 2n = 0) = 1
n = 1
k = 0 : 1
k = 1 : 1
************************ total ( 2n = 2) = 2
n = 2
k = 0 : 1
k = 1 : 1
k = 2 : 1
k = 3 : 1
k = 4 : 1
************************ total ( 2n = 4) = 5
n = 3
k = 0 : 1
k = 1 : 1
k = 2 : 1
k = 3 : 2
k = 4 : 3
k = 5 : 3
k = 6 : 2
k = 7 : 1
k = 8 : 1
k = 9 : 1
************************ total ( 2n = 6) = 16
PROG
(PARI)
permcount(v) = {my(m=1, s=0, k=0, t); for(i=1, #v, t=v[i]; k=if(i>1&&t==v[i-1], k+1, 1); m*=t*k; s+=t); s!/m}
edges(v, t) = {prod(i=2, #v, prod(j=1, i-1, my(g=gcd(v[i], v[j])); t(2*v[i]*v[j]/g)^g )) * prod(i=1, #v, my(c=v[i]); t(2*c)^(c\2)*if(c%2, t(c), 1))}
Row(n) = {my(s=0); forpart(p=n, s+=permcount(p)*edges(p, i->1+x^i)); Vecrev(s/n!)}
{ for(n=0, 6, print(Row(n))) } \\ Andrew Howroyd, Mar 08 2020
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
N. J. A. Sloane, Nov 14 2006
STATUS
approved