login
A181058
a(n) = prime(Fibonacci(phi(n))), where prime = A000040, Fibonacci = A000045 and phi = A000010.
1
2, 2, 2, 2, 5, 2, 19, 5, 19, 5, 257, 5, 827, 19, 73, 73, 7793, 19, 23159, 73, 827, 257, 196687, 73, 67931, 827, 23159, 827, 4528949, 73, 12717703, 7793, 67931, 7793, 563987, 827, 274253209, 23159, 563987, 7793, 2088145739, 827, 5738374519, 67931
OFFSET
1,1
COMMENTS
Phi is Euler's totient function A000010.
FORMULA
a(n) = A000040(A065451(n)) = A030427(A000010(n)). - Antti Karttunen, Dec 06 2017
EXAMPLE
a(7) = 19 since prime(fib(phi(7))) = prime(fib(6)) = prime(8) = 19 that is the 8th prime.
MATHEMATICA
f[n_] := Prime@ Fibonacci@ EulerPhi@ n; Array[f, 44] (* Robert G. Wilson v, Oct 02 2010 *)
PROG
(PARI) A181058(n) = prime(fibonacci(eulerphi(n))); \\ Antti Karttunen, Dec 06 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Carmine Suriano, Oct 01 2010
EXTENSIONS
More terms from Robert G. Wilson v, Oct 02 2010
STATUS
approved