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