

A197218


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


4



1, 1, 2, 2, 6, 10, 6, 28, 46, 36, 80, 198, 132, 520, 560, 600, 2206, 3570, 1908, 9348, 12960, 11760, 25704, 63480, 50692, 150000, 180960, 208008, 609084, 1130304, 604800, 3010348, 4865280, 3920400, 8374344, 17836000, 13685760, 54018520, 58269200, 69600960
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


LINKS

Amiram Eldar, Table of n, a(n) for n = 0..1000 (using Blair Kelly's data; terms 0..200 from Vincenzo Librandi)
Blair Kelly, Fibonacci and Lucas Factorizations


FORMULA

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


MATHEMATICA

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


PROG

(MAGMA) [EulerPhi(Lucas(n)): n in [0..40]]; // Vincenzo Librandi, Oct 13 2011
(PARI) for(n=0, 30, print1(eulerphi(fibonacc(n+1) + fibonacci(n1)), ", ")) \\ G. C. Greubel, Dec 22 2017


CROSSREFS

Cf. A000010, A000032, A065449, A065451, A197219 (Lucas(phi(n))).
Sequence in context: A321623 A077063 A081728 * A080460 A080456 A077017
Adjacent sequences: A197215 A197216 A197217 * A197219 A197220 A197221


KEYWORD

nonn


AUTHOR

T. D. Noe, Oct 12 2011


STATUS

approved



