OFFSET
1,2
EXAMPLE
For n = 10, initial value = 10! = 3628800; after the following initial terms {3628800, 2799360, 2052864, 1430784, 974592, 656640, 490752, 329472, 237312, 158976, 108288, 72960, 54528, 36608, 21248, 10752, 7680, 5632, 3072, ...}, the first power of 2 is 2048 = cototient(3072). Therefore a(10) = 2048.
MATHEMATICA
Table[NestWhile[# - EulerPhi@ # &, n!, ! IntegerQ@ Log2@ # &], {n, 28}] (* Michael De Vlieger, Aug 15 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Feb 24 2000
STATUS
approved