1,2

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

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 *)

(Haskell)

a025492 n = fst $ until (uncurry (==)) (\(x, x') -> (a002034 x, x)) (n, 0)

-- Reinhard Zumkeller, Mar 09 2012

Cf. A002034, A025493.

Sequence in context: A194551 A212644 A088492 * A077004 A064760 A002034

Adjacent sequences: A025489 A025490 A025491 * A025493 A025494 A025495

nonn,nice

David W. Wilson

approved