A272776 Numbers k such that phi(Fibonacci(k)) is a square.
1, 2, 3, 5, 6, 9, 22, 33
Offset: 1
Programs
-
PARI
lista(nn) = for(n=1, nn, if(issquare(eulerphi(fibonacci(n))), print1(n, ", ")));
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
lista(nn) = for(n=1, nn, if(issquare(eulerphi(fibonacci(n))), print1(n, ", ")));
Table[Fibonacci[n] - EulerPhi[Fibonacci[n]], {n, 40}] (* Alonso del Arte, Nov 21 2016 *)
a(n) = fibonacci(n) - eulerphi(fibonacci(n));
Comments