OFFSET
1,2
COMMENTS
Denominator is A075119(n).
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = n/A067815(n).
PROG
(Haskell)
import Data.Ratio ((%), numerator)
a073890 n = numerator $ n % a000196 n
-- Reinhard Zumkeller, Jul 08 2014
(PARI) a(n) = numerator(n/sqrtint(n)); \\ Michel Marcus, Dec 19 2017
CROSSREFS
KEYWORD
AUTHOR
Reinhard Zumkeller, Sep 03 2002
EXTENSIONS
Denominator reference fixed by Reinhard Zumkeller, Jul 08 2014
STATUS
approved