STATUS
proposed
approved
proposed
approved
editing
proposed
Table[(1/2)(n - First@(First/@FactorInteger[n])), {n, 2, 100}] (* Vincenzo Librandi, Apr 08 2020 *)
approved
editing
proposed
approved
editing
proposed
Andrew Howroyd, <a href="/A046667/b046667.txt">Table of n, a(n) for n = 2..1000</a>
(PARI) a(n)={if(n==1, 0, my(f=factor(n)[, 1]); (n-f[1])/2)} \\ Andrew Howroyd, Mar 07 2020
Cf. A046666.
proposed
editing
editing
proposed
_N. J. A. Sloane (njas(AT)research.att.com)_.
nonn,new
nonn
N. J. A. Sloane (njas(AT)research.att.com).