A181058 a(n) = prime(Fibonacci(phi(n))), where prime = A000040, Fibonacci = A000045 and phi = A000010.
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
Keywords
Examples
a(7) = 19 since prime(fib(phi(7))) = prime(fib(6)) = prime(8) = 19 that is the 8th prime.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..88
Programs
-
Mathematica
f[n_] := Prime@ Fibonacci@ EulerPhi@ n; Array[f, 44] (* Robert G. Wilson v, Oct 02 2010 *)
-
PARI
A181058(n) = prime(fibonacci(eulerphi(n))); \\ Antti Karttunen, Dec 06 2017
Formula
Extensions
More terms from Robert G. Wilson v, Oct 02 2010
Comments