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,5

Links

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

Formula

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

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

Prog

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

Crossrefs

Cf. A000196, A067815.

Sequence in context: A303364 A131332 A059780 * A224076 A137278 A205810

Adjacent sequences: A075116 A075117 A075118 * A075120 A075121 A075122

Keyword

nonn,frac

Author

Reinhard Zumkeller, Sep 03 2002

Extensions

Numerator reference corrected by Reinhard Zumkeller, Jul 08 2014

Status

approved