OFFSET
1,1
LINKS
Guilhem Gamard, Gwenaël Richomme, Jeffrey Shallit, Taylor J. Smith, Periodicity in rectangular arrays, arXiv:1602.06915 [cs.DM], 2016; Information Processing Letters 118 (2017) 58-63. See Table 1.
MATHEMATICA
Psi[k_, m_, n_] := Sum[MoebiusMu[dm] MoebiusMu[dn] k^(m n/dm/dn), {dm, Divisors[m] }, {dn, Divisors[n]}];
Table[Psi[2, 4, n], {n, 1, 18}] (* Jean-François Alcover, Aug 09 2018, after Lars Blomberg *)
PROG
(PARI) Psi(k, m, n) = v1=divisors(m); v2=divisors(n); sum(i1=1, length(v1), sum(i2=1, length(v2), moebius(v1[i1])*moebius(v2[i2])*k^(m*n/v1[i1]/v2[i2])));
vector(18, n, Psi(2, 4, n)) \\ Lars Blomberg, Aug 19 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 18 2017
EXTENSIONS
a(8)-a(18) from Lars Blomberg, Aug 19 2017
STATUS
approved