STATUS
proposed
approved
proposed
approved
editing
proposed
u[n_, k_, r_] := r*Binomial[(k-1)*n + r, n]/((k-1)*n + r);
F[n_, k_] := DivisorSum[GCD[n-1, k], EulerPhi[#]*u[(n-1)/#, k, k/#]&]/k;
T[n_, k_] := (F[n, k] + If[OddQ[k], If[OddQ[n], u[(n-1)/2, k, (k-1)/2], u[n/2-1, k, k-1]], If[OddQ[n], u[(n-1)/2, k, k/2+1], u[n/2-1, k, k]]])/2;
a[n_] := T[n, 4];
Array[a, 24] (* Jean-François Alcover, Jul 02 2018, after Andrew Howroyd *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
F. Harary, E. M. Palmer, R. C. Read, <a href="/A000108/a000108_20.pdf">On the cell-growth problem for arbitrary polygons, computer printout, circa 1974</a>
approved
editing
proposed
approved
editing
proposed
proposed
editing