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 A197218 #26 Sep 08 2022 08:45:59
%S A197218 1,1,2,2,6,10,6,28,46,36,80,198,132,520,560,600,2206,3570,1908,9348,
%T A197218 12960,11760,25704,63480,50692,150000,180960,208008,609084,1130304,
%U A197218 604800,3010348,4865280,3920400,8374344,17836000,13685760,54018520,58269200,69600960
%N A197218 a(n) = phi(Lucas(n)).
%H A197218 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 A197218 Blair Kelly, <a href="http://mersennus.net/fibonacci//">Fibonacci and Lucas Factorizations</a>
%F A197218 a(n) = A000010(A000032(n)).
%t A197218 Table[EulerPhi[LucasL[n]], {n, 0, 40}]
%o A197218 (Magma) [EulerPhi(Lucas(n)): n in [0..40]]; // _Vincenzo Librandi_, Oct 13 2011
%o A197218 (PARI) for(n=0,30, print1(eulerphi(fibonacci(n+1) + fibonacci(n-1)), ", ")) \\ _G. C. Greubel_, Dec 22 2017
%Y A197218 Cf. A000010, A000032, A065449, A065451, A197219 (Lucas(phi(n))).
%K A197218 nonn
%O A197218 0,3
%A A197218 _T. D. Noe_, Oct 12 2011