|
%I #6 Feb 11 2014 19:05:32
%S 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,
%T 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,
%U 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
%N a(n) = n - sum of the distinct prime factors of n.
%F a(n) = n - A008472(n).
%e a(1) = 1 - 0 = 1; a(6) = 6 - (2 + 3) = 1.
%t Join[{1},Rest[Table[n-Total[Transpose[FactorInteger[n]][[1]]],{n,80}]]] (* _Harvey P. Dale_, May 13 2012 *)
%Y Cf. A075254, A075255, A075653.
%K easy,nonn
%O 1,4
%A _Joseph L. Pe_, Oct 25 2002
|
