A075119 Denominator of n/floor(sqrt(n)); numerator is A073890(n).

1, 1, 1, 1, 2, 1, 2, 1, 1, 3, 3, 1, 3, 3, 1, 1, 4, 2, 4, 1, 4, 2, 4, 1, 1, 5, 5, 5, 5, 1, 5, 5, 5, 5, 1, 1, 6, 3, 2, 3, 6, 1, 6, 3, 2, 3, 6, 1, 1, 7, 7, 7, 7, 7, 7, 1, 7, 7, 7, 7, 7, 7, 1, 1, 8, 4, 8, 2, 8, 4, 8, 1, 8, 4, 8, 2, 8, 4, 8, 1, 1, 9, 9, 3, 9, 9, 3, 9, 9, 1, 9, 9, 3, 9, 9, 3, 9, 9, 1, 1, 10, 5, 10, 5

Offset: 1

Author

Reinhard Zumkeller, Sep 03 2002

Keywords

• nonn
• frac

Links

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

Crossrefs

Cf. A000196, A067815.

Programs

Haskell

import Data.Ratio ((%), denominator)
a075119 n = denominator $ n % a000196 n
-- Reinhard Zumkeller, Jul 08 2014

Maple

A075119:=n->denom(n/floor(sqrt(n))): seq(A075119(n), n=1..100); # Wesley Ivan Hurt, Jul 07 2014

Mathematica

Table[Denominator[n/Floor[Sqrt[n]]], {n, 100}] (* Wesley Ivan Hurt, Jul 07 2014 *)

Formula

a(n) = A000196(n)/A067815(n).

Extensions

Numerator reference corrected by Reinhard Zumkeller, Jul 08 2014