OFFSET
1,2
COMMENTS
EXAMPLE
n=53, the iterates are {53!,16174080000,840,32,6,4,3,2}, so a(53)=32, n=130, the iterates are {130!,287298761874053529600,38016,64,7,2}, so a(130)=64, n=563, the iterates are {563!,2875041108020454013464609906430286933482949481627276804096000000000, 77051520,512,10,4,3,2}, so a(563)=512.
MATHEMATICA
Join[{1, 2}, Table[SelectFirst[Rest[NestWhileList[DivisorSigma[0, #]&, n!, #>2&]], IntegerQ[Log[2, #]]&], {n, 3, 100}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 02 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Feb 24 2000
STATUS
approved