A218533 Numerators of the ratios of consecutive terms in A176352.

1, 1, 2, 1, 3, 1, 4, 1, 2, 5, 3, 3, 2, 1, 5, 5, 6, 1, 7, 2, 4, 3, 7, 1, 3, 4, 7, 5, 9, 1, 8, 6, 2, 5, 10, 1, 9, 3, 8, 1, 4, 7, 5, 11, 4, 6, 7, 3, 8, 5, 5, 9, 2, 7, 11, 1, 12, 9, 1, 10, 3, 11, 14, 1, 5, 13, 3, 13, 2, 11, 4, 13, 1, 8, 7, 13, 4, 11, 9, 7, 16, 2

Offset: 1

Author

Reinhard Zumkeller, Nov 10 2012

Keywords

• nonn
• frac

Comments

a(n) = numerator of A176352(n) / A176352(n+1).

Links

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

Crossrefs

Cf. A218533 (denominator).

Programs

Haskell

import Data.Ratio ((%), numerator)
a218533 n = a176352 n `div` a218535 n
a218533_list = map numerator $ zipWith (%) a176352_list $ tail a176352_list

Formula

a(n) = A176352(n) / A218535(n).