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.

A344526 a(n) = Sum_{k=1..n} k^3 * phi(k).

This page as a plain text file.
%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