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 A131045 #11 Feb 26 2019 05:03:44 %S A131045 1,2,5,12,29,68,155,348,775,1712,3745,8112,17431,37252,79355,168710, %T A131045 358037,758020,1599675,3362876,7041593,14692956,30577435,63531092, %U A131045 131901879,273804738,568366037,1179585610,2446603047,5068970880 %N A131045 Binomial transform of Euler's totient function phi(n+1). %H A131045 Vaclav Kotesovec, <a href="/A131045/b131045.txt">Table of n, a(n) for n = 0..1000</a> %F A131045 a(n) = Sum_{j=0..n} binomial(n,j)*phi(j+1). - _Emeric Deutsch_, Jul 09 2007 %e A131045 a(3) = (1,3,3,1) dot (1,1,2,2) = 1 + 3 + 6 + 2 = 12. %p A131045 with(numtheory); a := proc (n) options operator, arrow; sum(binomial(n, j)*phi(j+1), j = 0 .. n) end proc; seq(a(n), n = 0 .. 30); # _Emeric Deutsch_, Jul 09 2007 %t A131045 Table[Sum[Binomial[n,k]*EulerPhi[k+1], {k, 0, n}], {n, 0, 30}] (* _Vaclav Kotesovec_, Oct 30 2017 *) %o A131045 (PARI) a(n) = sum(j=0, n, binomial(n,j)*eulerphi(j+1)); \\ _Michel Marcus_, Feb 26 2019 %Y A131045 Cf. A000010, A007318. %K A131045 nonn %O A131045 0,2 %A A131045 _Gary W. Adamson_, Jun 11 2007 %E A131045 More terms from _Emeric Deutsch_, Jul 09 2007