OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
k[n_] := (m=1; While[ !IntegerQ[m!/n], m++]; m); a[n_] := FixedPoint[k, n]; Table[ a[n], {n, 1, 85}] (* Jean-François Alcover, Mar 15 2012 *)
PROG
(Haskell)
a025492 n = fst $ until (uncurry (==)) (\(x, x') -> (a002034 x, x)) (n, 0)
-- Reinhard Zumkeller, Mar 09 2012
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
STATUS
approved