login
A076694
a(n) = n - sum of the distinct prime factors of n.
2
1, 0, 0, 2, 0, 1, 0, 6, 6, 3, 0, 7, 0, 5, 7, 14, 0, 13, 0, 13, 11, 9, 0, 19, 20, 11, 24, 19, 0, 20, 0, 30, 19, 15, 23, 31, 0, 17, 23, 33, 0, 30, 0, 31, 37, 21, 0, 43, 42, 43, 31, 37, 0, 49, 39, 47, 35, 27, 0, 50, 0, 29, 53, 62, 47, 50, 0, 49, 43, 56, 0, 67, 0, 35, 67, 55, 59, 60, 0, 73
OFFSET
1,4
FORMULA
a(n) = n - A008472(n).
EXAMPLE
a(1) = 1 - 0 = 1; a(6) = 6 - (2 + 3) = 1.
MATHEMATICA
Join[{1}, Rest[Table[n-Total[Transpose[FactorInteger[n]][[1]]], {n, 80}]]] (* Harvey P. Dale, May 13 2012 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Joseph L. Pe, Oct 25 2002
STATUS
approved