OFFSET
1,2
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..200
FORMULA
a(n+1) = A056240(a(n) + a(n-1)).
EXAMPLE
sopfr(3) = 3 = 2 + 1, sopfr(15) = 8 = 3 + 5, etc.
MATHEMATICA
s[1] = 0; s[n_] := Plus @@ Times @@@ FactorInteger@n; a[1] = 1; a[2] = 2; a[n_] := a[n] = Module[{k = 1, sum = a[n - 1] + a[n - 2]}, While[s[k] != sum, k++]; k]; Array[a, 10] (* Amiram Eldar, Jan 02 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
David James Sycamore, Jan 02 2020
EXTENSIONS
Data corrected by and more terms from Amiram Eldar and David A. Corneth, Jan 02 2020
Data corrected by Jinyuan Wang, Mar 08 2020
STATUS
approved