OFFSET
1,1
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..1179
EXAMPLE
610 is in the sequence since sopfr(608) = 29, sopfr(609) = 39 and sopfr(610) = 68 = 39 + 29.
MATHEMATICA
f[n_]:=Plus @@ Times @@@ FactorInteger@ n; Select[Range[10^5], f[#]==f[#-1]+f[#-2] &]
PROG
(PARI) sopfr(n, f=factor(n))=f[, 1]~*f[, 2]
list(lim)=my(v=List(), a=0, b=2, c); forfactored(k=3, lim\1, c=sopfr(k[2]); if(c==a+b, listput(v, k[1])); a=b; b=c); Vec(v) \\ Charles R Greathouse IV, Nov 12 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 12 2017
STATUS
approved