A136121 Integer Log of (Numerators convergent to Pi / Denominators convergent to Pi) = A001414(A002485/A002486) = A001414(A002485)-A001414(A002486).

3, 6, -12, -37, 103369, 1298, 3173, 119, 568338, -2377, 4271976, 3671, 2966929, 4679, 3755, 411547076, -7548356, -742070, 131900, 108983, 13988275, 198923609, 54008, 2194971, 689148781190, 1587713977705, 6700494215, 2691971279, 1226979802842339, -297697344982

Offset: 0

Author

Carlos Alves, Dec 16 2007

Keywords

• easy
• sign

Comments

The integer log of a fraction p/q is A001414(p) - A001414(q).

Crossrefs

Cf. A001414, A002485, A002486.

Programs

Mathematica

sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; Table[sopfr[FromContinuedFraction[ContinuedFraction[Pi, k]]], {k, 1, 50}]