A092495 Least factorial multiple of n.

1, 2, 6, 24, 120, 6, 5040, 24, 720, 120, 39916800, 24, 6227020800, 5040, 120, 720, 355687428096000, 720, 121645100408832000, 120, 5040, 39916800, 25852016738884976640000, 24, 3628800, 6227020800, 362880, 5040

Offset

1,2

Links

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

Formula

a(n) = A002034(n)!.

Sum_{n>=1} 1/a(n) = A071120. - Amiram Eldar, Nov 16 2020

Mathematica

Reap[Do[m = 1; While[an = m!; !IntegerQ[an/n], m++]; Print[n, " ", an]; Sow[an], {n, 1, 28}]][[2, 1]] (* Jean-François Alcover, Dec 04 2018 *)
With[{f=Range[30]!}, Table[SelectFirst[f, Divisible[#, n]&], {n, 30}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 25 2020 *)

Prog

(Haskell)
import Data.List (find)
import Data.Maybe (fromJust)
a092495 n = fromJust $ find ((== 0) . (`mod` n)) $ a000142_list
-- Reinhard Zumkeller, Aug 23 2011

Crossrefs

Cf. A000142, A002034, A071120.

Sequence in context: A357920 A358611 A362332 * A110808 A369407 A284567

Adjacent sequences: A092492 A092493 A092494 * A092496 A092497 A092498

Keyword

nonn

Author

Amarnath Murthy, Apr 02 2004

Extensions

More terms from Ray Chandler, Apr 08 2004

Status

approved