|
|
A181056
|
|
Let m = phi(Fibonacci(n)); then a(n) = prime(m).
|
|
2
|
|
|
2, 2, 2, 3, 7, 7, 37, 37, 53, 173, 457, 223, 1459, 2267, 1511, 4003, 13463, 9311, 38197, 29443, 49033, 193093, 333227, 136069, 746773, 1592923, 1157579, 2575043, 7594759, 4073233, 21225769, 19112567, 28016189, 98825561, 119488379, 75032131, 446083661, 729322973
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Phi is Euler's totient function A000010.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(7)=37 since prime(phi(fib(7))) = prime(phi(13)) = prime(12) = 37 is the 12th prime.
|
|
MAPLE
|
|
|
MATHEMATICA
|
Prime[EulerPhi[Fibonacci[Range[35]]]] (* Harvey P. Dale, Jun 22 2014 *)
|
|
PROG
|
(Magma) [NthPrime(EulerPhi(Fibonacci(n))): n in [1..40]]; // Vincenzo Librandi, Jun 23 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|