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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 02 2004
EXTENSIONS
More terms from Ray Chandler, Apr 08 2004
STATUS
approved