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.

A181540 a(n) = Sum_{k=0..n} gcd(n,k)*phi(k).

This page as a plain text file.
%I A181540 #21 Jul 12 2020 10:18:46
%S A181540 0,1,3,8,13,26,29,54,59,84,93,142,139,202,195,244,259,352,327,444,433,
%T A181540 508,505,656,639,776,719,866,889,1054,1057,1208,1151,1332,1255,1624,
%U A181540 1575,1728,1579,1886,2011,2130,2159,2348,2329,2716,2329
%N A181540 a(n) = Sum_{k=0..n} gcd(n,k)*phi(k).
%C A181540 Row sums of triangle A181538.
%p A181540 A181540 := n -> add(igcd(n,k)*numtheory[phi](k),k=0..n);
%t A181540 Table[Sum[GCD[n,k]EulerPhi[k],{k,0,n}],{n,0,50}] (* _Harvey P. Dale_, Jul 12 2020 *)
%o A181540 (PARI) a(n) = sum(k=1, n, gcd(n, k)*eulerphi(k)); \\ _Michel Marcus_, May 18 2018
%Y A181540 Cf. A181538.
%K A181540 nonn
%O A181540 0,3
%A A181540 _Peter Luschny_, Oct 29 2010