|
-1, -1, -2, 1, -4, 0, -6, 5, 1, -2, -10, 10, -12, -4, -6, 13, -16, 15, -18, 12, -10, -8, -22, 30, 1, -10, 10, 14, -28, 12, -30, 29, -18, -14, -22, 49, -36, -16, -22, 40, -40, 12, -42, 18, 18, -20, -46, 70, 1, 33, -30, 20, -52, 60, -38, 50, -34, -26, -58, 78, -60, -28, 20, 61, -46, 12, -66, 24, -42, 4, -70, 117, -72, -34, 34, 26, -58, 12
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
rad[n_] := Times @@ FactorInteger[n][[;; , 1]]; a[n_] := DivisorSigma[1, n] - rad[n] - n; Array[a, 100] (* Amiram Eldar, Dec 05 2023 *)
|
|
PROG
|
(PARI)
A007947(n) = factorback(factorint(n)[, 1]);
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|