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

Comments

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

Links

Table of n, a(n) for n=0..29.

Mathematica

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

Crossrefs

Cf. A001414, A002485, A002486.

Sequence in context: A075209 A075207 A208131 * A023369 A358058 A129380

Adjacent sequences: A136118 A136119 A136120 * A136122 A136123 A136124

Keyword

easy,sign

Author

Carlos Alves, Dec 16 2007

Status

approved