login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A350969 Let phi^(k) denote the k-th iterate of phi (A000010); a(n) is smallest positive k such that phi^(k)(Fibonacci(n)) = 1. 1
1, 1, 1, 2, 3, 3, 4, 4, 5, 6, 7, 6, 8, 8, 8, 9, 9, 10, 11, 12, 11, 13, 13, 13, 15, 16, 15, 16, 17, 17, 19, 18, 19, 19, 20, 20, 21, 22, 22, 23, 26, 23, 25, 25, 26, 27, 28, 27, 28, 30, 28, 31, 32, 30, 34, 32, 33, 34, 35, 34, 38, 37, 36, 37, 39, 38, 40, 39, 40, 40 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,4
COMMENTS
a(n) <= n.
The Fibonacci Quarterly asks what the range of a(n) is. For example, is a(n) ever equal to 14 or 24?
LINKS
Douglas Lind (Proposer), Problem B-51, Elementary Problems and Solutions, The Fibonacci Quarterly, Vol. 2, No. 3 (1964), p. 232; Solution, ibid., Vol. 60, No. 1 (2022), pp. 83-84.
S. Sivasankaranarayana Pillai, On a function connected with phi(n), Bull. Amer. Math. Soc., Vol. 35, No. 6 (1929), pp. 837-841.
FORMULA
a(n) = A049108(A000045(n)) - 1, for n > 2. - Amiram Eldar, Mar 03 2022.
a(n) = A003434(A000045(n)) for n > 2. - Alois P. Heinz, Mar 03 2022
EXAMPLE
Iterating phi, F_7 = 13 -> 12 -> 4 -> 2 -> 1 takes 4 steps to reach 1, so a(7) = 4.
MAPLE
a:= proc(n) uses numtheory; local f, k;
f:= phi((<<0|1>, <1|1>>^n)[1, 2]);
for k while f>1 do f:= phi(f) od; k
end:
seq(a(n), n=1..70); # Alois P. Heinz, Mar 03 2022
MATHEMATICA
a[1] = a[2] = 1; a[n_] := Length@NestWhileList[EulerPhi, Fibonacci[n], # > 1 &] - 1; Array[a, 100] (* Amiram Eldar, Mar 03 2022 *)
CROSSREFS
Sequence in context: A309077 A057365 A014245 * A096386 A257063 A273663
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 03 2022
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 17 15:06 EDT 2024. Contains 371764 sequences. (Running on oeis4.)