login
A332778
a(1) = 1; a(n) = Sum_{d|n, d < n} phi(n/d) * a(d)^2.
0
1, 1, 2, 3, 4, 8, 6, 15, 14, 24, 10, 96, 12, 48, 56, 255, 16, 344, 18, 656, 108, 120, 22, 9840, 84, 168, 434, 2448, 28, 4608, 30, 65535, 260, 288, 264, 137376, 36, 360, 360, 432512, 40, 16776, 42, 14720, 7208, 528, 46, 96974880, 258, 9464, 608, 28656, 52, 425864, 600
OFFSET
1,3
FORMULA
a(1) = 1; a(n) = Sum_{k=1..n-1} a(gcd(n, k))^2.
MATHEMATICA
a[1] = 1; a[n_] := Sum[If[d < n, EulerPhi[n/d] a[d]^2, 0], {d, Divisors[n]}]; Table[a[n], {n, 1, 55}]
a[1] = 1; a[n_] := Sum[a[GCD[n, k]]^2, {k, 1, n - 1}]; Table[a[n], {n, 1, 55}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 23 2020
STATUS
approved