OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
MATHEMATICA
Table[LucasL[EulerPhi[n]], {n, 0, 50}]
PROG
(Magma) [2], [Lucas(EulerPhi(n)): n in [1..60]]; // Vincenzo Librandi, Oct 13 2011
(PARI) for(n=0, 30, print1(if(n==0, 2, fibonacci(eulerphi(n)+1) + fibonacci(eulerphi(n)-1)), ", ")) \\ G. C. Greubel, Dec 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Oct 12 2011
STATUS
approved