OFFSET
1,1
FORMULA
EXAMPLE
a(24)=-6 because 24=2*2*2*3, 26=2*13 and (2+2+2+3)-(2+13)=-6.
MATHEMATICA
Join[{-3}, #[[1]]-#[[3]]&/@Partition[Table[Total[Flatten[Table[#[[1]], #[[2]]]& /@ FactorInteger[n]]], {n, 2, 90}], 3, 1]] (* Harvey P. Dale, Apr 06 2018 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Charles K. Layman (cklayman(AT)juno.com), Nov 25 2003
STATUS
approved