login
Euler phi function applied to the triangular numbers.
4

%I #17 Dec 07 2019 12:18:24

%S 1,2,2,4,8,12,12,12,24,40,20,24,72,48,32,64,96,108,72,48,120,220,88,

%T 80,240,216,108,168,224,240,240,160,320,384,144,216,648,432,192,320,

%U 480,504,420,240,528,1012,368,336,840,640,384,624,936,720,480,432,1008,1624,464,480,1800,1080,576,768,960,1320

%N Euler phi function applied to the triangular numbers.

%H Michel Marcus, <a href="/A086700/b086700.txt">Table of n, a(n) for n = 1..5000</a>

%F a(n) = A000010(A000217(n)). - _Michel Marcus_, Aug 21 2017

%e a(3) = phi(6) = 2.

%p with(numtheory):with(combinat):a:=n->phi(binomial(n,2)): seq(a(n), n=2..31); # _Zerinvary Lajos_, Oct 05 2007

%t EulerPhi[Accumulate[Range[70]]] (* _Harvey P. Dale_, Sep 16 2012 *)

%o (PARI) vector(66,n,eulerphi(n*(n+1)/2))

%o (Sage) [euler_phi(binomial(n,2)) for n in range(2,32)] # _Zerinvary Lajos_, Jun 06 2009

%Y Cf. A000010, A000217.

%K nonn

%O 1,2

%A _Jon Perry_, Jul 28 2003