cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A332778 a(1) = 1; a(n) = Sum_{d|n, d < n} phi(n/d) * a(d)^2.

This page as a plain text file.
%I A332778 #4 Feb 23 2020 16:28:11
%S A332778 1,1,2,3,4,8,6,15,14,24,10,96,12,48,56,255,16,344,18,656,108,120,22,
%T A332778 9840,84,168,434,2448,28,4608,30,65535,260,288,264,137376,36,360,360,
%U A332778 432512,40,16776,42,14720,7208,528,46,96974880,258,9464,608,28656,52,425864,600
%N A332778 a(1) = 1; a(n) = Sum_{d|n, d < n} phi(n/d) * a(d)^2.
%F A332778 a(1) = 1; a(n) = Sum_{k=1..n-1} a(gcd(n, k))^2.
%t A332778 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}]
%t A332778 a[1] = 1; a[n_] := Sum[a[GCD[n, k]]^2, {k, 1, n - 1}]; Table[a[n], {n, 1, 55}]
%Y A332778 Cf. A000010, A006874, A007018, A023900, A069097, A082588.
%K A332778 nonn
%O A332778 1,3
%A A332778 _Ilya Gutkovskiy_, Feb 23 2020