login
a(n) = phi(Lucas(n)).
6

%I #26 Sep 08 2022 08:45:59

%S 1,1,2,2,6,10,6,28,46,36,80,198,132,520,560,600,2206,3570,1908,9348,

%T 12960,11760,25704,63480,50692,150000,180960,208008,609084,1130304,

%U 604800,3010348,4865280,3920400,8374344,17836000,13685760,54018520,58269200,69600960

%N a(n) = phi(Lucas(n)).

%H Amiram Eldar, <a href="/A197218/b197218.txt">Table of n, a(n) for n = 0..1000</a> (using Blair Kelly's data; terms 0..200 from Vincenzo Librandi)

%H Blair Kelly, <a href="http://mersennus.net/fibonacci//">Fibonacci and Lucas Factorizations</a>

%F a(n) = A000010(A000032(n)).

%t Table[EulerPhi[LucasL[n]], {n, 0, 40}]

%o (Magma) [EulerPhi(Lucas(n)): n in [0..40]]; // _Vincenzo Librandi_, Oct 13 2011

%o (PARI) for(n=0,30, print1(eulerphi(fibonacci(n+1) + fibonacci(n-1)), ", ")) \\ _G. C. Greubel_, Dec 22 2017

%Y Cf. A000010, A000032, A065449, A065451, A197219 (Lucas(phi(n))).

%K nonn

%O 0,3

%A _T. D. Noe_, Oct 12 2011