login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,3
LINKS
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
Sequence in context: A300868 A349239 A176077 * A263694 A210743 A210750
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 23 2020
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 09:42 EDT 2024. Contains 371268 sequences. (Running on oeis4.)