A076694 a(n) = n - sum of the distinct prime factors of n.
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
Examples
a(1) = 1 - 0 = 1; a(6) = 6 - (2 + 3) = 1.
Programs
-
Mathematica
Join[{1},Rest[Table[n-Total[Transpose[FactorInteger[n]][[1]]],{n,80}]]] (* Harvey P. Dale, May 13 2012 *)
Formula
a(n) = n - A008472(n).