login
Molecular topological indices of the odd graphs.
2

%I #21 Feb 16 2025 08:33:15

%S 0,24,540,12040,258300,5258484,102834732,1948929840,36099037260,

%T 656717973340,11782163004612,208991112900024,3673025551895700,

%U 64051241252342400,1109647124772841800,19114937411113617120,327669959548309223340,5592728044559732561100

%N Molecular topological indices of the odd graphs.

%C The n-odd graph is a vertex transitive graph. The number of nodes at distance k from a specified node for k in 1..n-1 is given by A088459(n,k). Ignore the second half of each row (k>=n). - _Andrew Howroyd_, May 11 2017

%H Andrew Howroyd, <a href="/A192835/b192835.txt">Table of n, a(n) for n = 1..100</a>

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MolecularTopologicalIndex.html">Molecular Topological Index</a>

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/OddGraph.html">Odd Graph</a>

%F a(n) = binomial(2*n-1, n)*n * (n + Sum_{k=1..n-1} k*A088459(n,k)) for n>1. - _Andrew Howroyd_, May 11 2017

%t b[n_] := Sum[Binomial[n-1, i]*Binomial[n, i]*Min[2*i, 2*(n-i)-1], {i, 1, n - 1}];

%t a[1] = 0; a[n_] := Binomial[2*n - 1, n]*n*(n + b[n]);

%t Array[a, 18] (* _Jean-François Alcover_, Oct 02 2017, after _Andrew Howroyd_ *)

%o (PARI)

%o b(n)=sum(i=1,n-1,binomial(n-1,i)*binomial(n,i)*min(2*i,2*(n-i)-1));

%o a(n)=if(n<2,0,binomial(2*n-1,n)*n*(n+b(n))); \\ _Andrew Howroyd_, May 11 2017

%Y Cf. A088459.

%K nonn,changed

%O 1,2

%A _Eric W. Weisstein_, Jul 11 2011

%E a(8)-a(18) from _Andrew Howroyd_, May 11 2017