|
%I #11 Apr 08 2020 11:54:51
%S 0,0,1,0,2,0,3,3,4,0,5,0,6,6,7,0,8,0,9,9,10,0,11,10,12,12,13,0,14,0,
%T 15,15,16,15,17,0,18,18,19,0,20,0,21,21,22,0,23,21,24,24,25,0,26,25,
%U 27,27,28,0,29,0,30,30,31,30,32,0,33,33,34,0,35,0,36,36
%N a(n) = A046666(n)/2.
%H Andrew Howroyd, <a href="/A046667/b046667.txt">Table of n, a(n) for n = 2..1000</a>
%t Table[(1/2)(n - First@(First/@FactorInteger[n])), {n, 2, 100}] (* _Vincenzo Librandi_, Apr 08 2020 *)
%o (PARI) a(n)={if(n==1, 0, my(f=factor(n)[,1]); (n-f[1])/2)} \\ _Andrew Howroyd_, Mar 07 2020
%Y Cf. A046666.
%K nonn
%O 2,5
%A _N. J. A. Sloane_
|
