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.
%I A344526 #17 May 22 2021 08:37:39 %S A344526 1,9,63,191,691,1123,3181,5229,9603,13603,26913,33825,60189,76653, %T A344526 103653,136421,215029,250021,373483,437483,548615,655095,922769, %U A344526 1033361,1345861,1556773,1911067,2174491,2857383,3073383,3967113,4491401,5210141,5839005,6868005,7427877,9251385 %N A344526 a(n) = Sum_{k=1..n} k^3 * phi(k). %F A344526 a(n) ~ 6*n^5 / (5*Pi^2). - _Vaclav Kotesovec_, May 22 2021 %t A344526 a[n_] := Sum[k^3 * EulerPhi[k], {k, 1, n}]; Array[a, 40] (* _Amiram Eldar_, May 22 2021 *) %t A344526 Accumulate[Table[k^3*EulerPhi[k], {k, 1, 40}]] (* _Vaclav Kotesovec_, May 22 2021 *) %o A344526 (PARI) a(n) = sum(k=1, n, k^3*eulerphi(k)); %Y A344526 Cf. A000010, A011755, A068970, A319087, A344522. %K A344526 nonn %O A344526 1,2 %A A344526 _Seiichi Manyama_, May 22 2021