Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #22 Jan 23 2025 16:50:41
%S 2,1,1,3,3,7,3,18,7,18,7,123,7,322,18,47,47,2207,18,5778,47,322,123,
%T 39603,47,15127,322,5778,322,710647,47,1860498,2207,15127,2207,103682,
%U 322,33385282,5778,103682,2207,228826127,322,599074578,15127,103682,39603
%N a(0) = 2, a(n) = Lucas(phi(n)) for n > 0.
%H Vincenzo Librandi, <a href="/A197219/b197219.txt">Table of n, a(n) for n = 0..200</a>
%F a(n) = A000032(A000010(n)) for n > 0.
%t Table[LucasL[EulerPhi[n]], {n, 0, 50}]
%o (Magma) [2] cat [Lucas(EulerPhi(n)): n in [1..60]]; // _Vincenzo Librandi_, Oct 13 2011
%o (PARI) a(n) = if(n==0, 2, fibonacci(eulerphi(n)+1) + fibonacci(eulerphi(n)-1)) \\ _G. C. Greubel_, Dec 22 2017
%Y Cf. A000010, A000032, A065449, A065451, A197218 (phi(Lucas(n))).
%K nonn,changed
%O 0,1
%A _T. D. Noe_, Oct 12 2011