login
A346473
a(n) = A250469(n) - sigma(n).
2
0, 0, 1, 2, 1, 3, 3, 6, 12, 9, 1, 5, 3, 15, 11, 14, 1, 12, 3, 15, 23, 27, 5, 9, 18, 33, 25, 25, 1, 15, 5, 30, 37, 45, 29, 14, 3, 51, 39, 27, 1, 27, 3, 45, 37, 63, 5, 17, 64, 54, 53, 55, 5, 39, 19, 45, 65, 81, 1, 9, 5, 87, 51, 62, 35, 51, 3, 75, 79, 63, 1, 18, 5, 105, 61, 85, 47, 63, 3, 51, 84, 117, 5, 25, 25, 123, 95
OFFSET
1,4
COMMENTS
The first negative term is a(120) = -3.
FORMULA
a(n) = A250469(n) - A000203(n).
a(n) = A286385(n) - A280692(n).
a(A001359(n)) = 1 for all n >= 1.
MATHEMATICA
Block[{g}, g[n_] := If[n == 1, 0, PrimePi@FactorInteger[n][[1, 1]]]; Function[s, MapIndexed[Lookup[s, g[First@ #2] + 1][[#1]] - Boole[First@ #2 == 1] - DivisorSigma[1, First@ #2] &, #] &@ Map[Position[Lookup[s, g@ #], #][[1, 1]] &, Range@ 120]]@ PositionIndex@ Array[g, 10^4]] (* Michael De Vlieger, Oct 18 2021 *)
PROG
(PARI) A346473(n) = A250469(n)-sigma(n);
CROSSREFS
KEYWORD
sign,look
AUTHOR
Antti Karttunen, Jul 28 2021
STATUS
approved