This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A136121 #2 Sep 24 2013 00:41:42 %S A136121 3,6,-12,-37,103369,1298,3173,119,568338,-2377,4271976,3671,2966929, %T A136121 4679,3755,411547076,-7548356,-742070,131900,108983,13988275, %U A136121 198923609,54008,2194971,689148781190,1587713977705,6700494215,2691971279,1226979802842339,-297697344982 %N A136121 Integer Log of (Numerators convergent to Pi / Denominators convergent to Pi) = A001414(A002485/A002486) = A001414(A002485)-A001414(A002486). %C A136121 The integer log of a fraction p/q is A001414(p) - A001414(q). %t A136121 sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; Table[sopfr[FromContinuedFraction[ContinuedFraction[Pi, k]]], {k, 1, 50}] %Y A136121 Cf. A001414, A002485, A002486. %K A136121 easy,sign %O A136121 0,1 %A A136121 _Carlos Alves_, Dec 16 2007