OFFSET
0,1
MATHEMATICA
sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; Table[sopfr[FromContinuedFraction[ContinuedFraction[Pi, k]]], {k, 1, 50}]
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Carlos Alves, Dec 16 2007
STATUS
approved