OFFSET
1,1
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..100
FORMULA
EXAMPLE
All solutions for n=3:
..3....2....1....2....2....3....3....1....1....1....1....2....1....2....1....1
..4....4....2....5....3....5....4....5....3....3....4....3....3....3....4....2
..6....5....5....6....6....6....5....6....5....4....5....4....6....5....6....3
..
..2....1....1....4
..4....2....2....5
..6....4....6....6
MATHEMATICA
T[n_, k_] := If[n == 1, k, (DivisorSum[n, EulerPhi[n/#]*(k - 1)^# &]/n + If[OddQ[n], 1 - k, k*(k - 1)^(n/2)/2])/2]; a[n_] = T[n, 6]; Array[a, 24] (* Jean-François Alcover, Nov 01 2017, after Andrew Howroyd *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. H. Hardin, Feb 27 2012
EXTENSIONS
a(19)-a(24) from Andrew Howroyd, Mar 12 2017
STATUS
approved