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,4

Links

Table of n, a(n) for n=1..80.

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

Cf. A075254, A075255, A075653.

Sequence in context: A335125 A335022 A249732 * A095403 A011328 A048277

Adjacent sequences: A076691 A076692 A076693 * A076695 A076696 A076697

Keyword

easy,nonn

Author

Joseph L. Pe, Oct 25 2002

Status

approved