OFFSET
1,1
COMMENTS
All prime powers, see A246547, are terms.
LINKS
Scott R. Shannon, Table of n, a(n) for n = 1..10000
EXAMPLE
18 is a term as 18 = 2 * 3 * 3, and soprf(18) = 2 + 3 + 3 = 8, which shares a factor with 18.
MATHEMATICA
fn[{a_, b_}]:=a*b; Select[Range[240], CompositeQ[#]&&ContainsAny[First/@FactorInteger[#], First/@FactorInteger[ Total[fn/@FactorInteger[#]]]]&] (* James C. McMahon, May 06 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Scott R. Shannon, May 06 2024
STATUS
approved