OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
sopf[n_] := If[n < 2, 0, Plus @@ FactorInteger[n][[All, 1]]];
Table[sopf[n] + sopf[n + 1], {n, 71}] (* Jon Maiga, Jul 26 2019 *)
Join[{2}, Total/@Partition[Table[Total[FactorInteger[n][[All, 1]]], {n, 2, 80}], 2, 1]] (* Harvey P. Dale, Jan 08 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 02 2010
STATUS
approved