OFFSET
1,7
COMMENTS
a(n) = A227944(n) if n is not a power of 2. - Eric M. Schmidt, Oct 13 2013
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
FORMULA
The smallest x so that Nest[ EulerPhi, n, x ] = 2^w is just achieved.
From Antti Karttunen, Aug 28 2021: (Start)
(End)
EXAMPLE
If n is a power of 2, then a(n)=0 by definition. If n = 59049, then by iterating with phi, we get 59049 -> 39366 -> 13122 -> 4374 -> 1458 -> 486 -> 162 -> 54 -> 18 -> 6 -> 2 -> 1. It took ten steps to reach the first power of 2 (2 in this case), so a(59049) = 10.
MATHEMATICA
Table[If[IntegerQ@ Log2@ n, 0, -1 + Length@ NestWhileList[EulerPhi, n, ! IntegerQ@ Log2@ # &]], {n, 105}] (* Michael De Vlieger, Aug 01 2017 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition corrected and simplified, example corrected by Antti Karttunen, Aug 28 2021
STATUS
approved