%I #27 Sep 08 2022 08:45:04
%S 0,1,1,1,1,3,1,8,3,8,3,55,3,144,8,21,21,987,8,2584,21,144,55,17711,21,
%T 6765,144,2584,144,317811,21,832040,987,6765,987,46368,144,14930352,
%U 2584,46368,987,102334155,144,267914296,6765,46368,17711,1836311903
%N a(n) = Fibonacci(phi(n)), a(0) = 0.
%H Harry J. Smith, <a href="/A065451/b065451.txt">Table of n, a(n) for n = 0..1000</a>
%H Florian Luca, <a href="https://www.fq.math.ca/Scanned/37-3/luca.pdf">Arithmetic Functions of Fibonacci Numbers</a>, The Fibonacci Quarterly, Vol. 37, No. 3 (1999), pp. 265-268.
%H Joseph L. Pe, <a href="http://numeratus.net/phibonacci/phibonacci.html">The Euler Phibonacci Sequence: A Problem Proposal with Software</a>, 2001.
%F a(n) = A000045(A000010(n)).
%F a(n) <= A065449(n), with equality if and only if n = 1, 2 or 3 (Luca, 1999). - _Amiram Eldar_, Jan 12 2022
%e a(13) = F(phi(13)) = F(12) = 144.
%t Table[ Fibonacci[ EulerPhi[ n]], {n, 0, 60} ]
%o (PARI) for(n=1,75,print1(fibonacci(eulerphi(n)),","))
%o (PARI) { for (n=0, 1000, if (n, a=fibonacci(eulerphi(n)), a=0); write("b065451.txt", n, " ", a) ) } \\ _Harry J. Smith_, Oct 20 2009
%o (Magma) [0] cat [Fibonacci(EulerPhi(n)): n in [1..50]]; // _G. C. Greubel_, Jan 18 2018
%Y Cf. A000010, A000045, A065449 (phi(Fibonacci(n))).
%K nonn
%O 0,6
%A _Joseph L. Pe_, Nov 18 2001
%E More terms from several correspondents, Nov 19 2001