OFFSET
1,1
FORMULA
EXAMPLE
a(24)=-2 because 24=2*2*2*3, 28=2*2*7 and (2+2+2+3)-(2+2+7)=-2.
MATHEMATICA
Join[{-5}, #[[1]]-#[[5]]&/@Partition[Table[Total[Times@@@FactorInteger[n]], {n, 2, 90}], 5, 1]] (* Harvey P. Dale, Jul 02 2022 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Charles K. Layman (cklayman(AT)juno.com), Nov 25 2003
STATUS
approved