This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A046667 #11 Apr 08 2020 11:54:51 %S A046667 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 A046667 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 A046667 27,27,28,0,29,0,30,30,31,30,32,0,33,33,34,0,35,0,36,36 %N A046667 a(n) = A046666(n)/2. %H A046667 Andrew Howroyd, <a href="/A046667/b046667.txt">Table of n, a(n) for n = 2..1000</a> %t A046667 Table[(1/2)(n - First@(First/@FactorInteger[n])), {n, 2, 100}] (* _Vincenzo Librandi_, Apr 08 2020 *) %o A046667 (PARI) a(n)={if(n==1, 0, my(f=factor(n)[,1]); (n-f[1])/2)} \\ _Andrew Howroyd_, Mar 07 2020 %Y A046667 Cf. A046666. %K A046667 nonn %O A046667 2,5 %A A046667 _N. J. A. Sloane_