OFFSET
1,5
COMMENTS
Number of iterations of A366385 needed to reach the nearest power of 2.
LINKS
FORMULA
EXAMPLE
See illustrations in A061773.
MATHEMATICA
Array[-1 + Length@ NestWhileList[PrimePi[#2]*#1/#2 & @@ {#, FactorInteger[#][[-1, 1]]} &, #, ! IntegerQ@ Log2[#] &] &, 105] (* Michael De Vlieger, Oct 23 2023 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 23 2023
STATUS
approved