OFFSET
1,1
COMMENTS
A136136 starts with s(1)=1 and ends in 10 as fixed point.
For s(1) from 1 to 10000 either (a) the sequence converges to 10, the fixed point; or (b) it cycles - between 14, 29, 59 and 24.
EXAMPLE
s(1)=1; ... s(6)=12; s(7)=sopfr(2*12+1)=5+5=10; s(8)=sopfr(2*10+1)=3+7=10
s(1)=1 leads to 10 as fixed point.
s(1)=2; ... s(7)=24; s(8)=14; s(9)=29; s(10)=59; s(11)=24
s(1)=2 leads to the cycle (24 14 29 59).
MATHEMATICA
sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; Union[Table[NestList[sopfr[2# + 1] &, s0, 100][[ -1]], {s0, 1, 10000}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Carlos Alves, Dec 20 2007
STATUS
approved