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 A243349 #9 Mar 04 2024 01:38:42
%S A243349 1,1,1,2,4,3,7,6,7,10,12,10,11,17,17,14,20,19,27,20,28,27,31,25,30,33,
%T A243349 28,38,29,37,32,44,37,50,49,48,42,43,51,59,61,48,60,66,51,52,62,72,72,
%U A243349 57,69,60,78,72,77,65,85,82,79,87,72,75,95,76,101,90,79,80,105
%N A243349 Difference between the n-th squarefree number and the index of its largest prime factor.
%C A243349 Different from A243289. A243348 gives the difference a(n) - A243289(n).
%H A243349 Antti Karttunen, <a href="/A243349/b243349.txt">Table of n, a(n) for n = 1..10001</a>
%F A243349 a(n) = A243291(A005117(n)).
%F A243349 a(n) = A005117(n) - A061395(A005117(n)).
%t A243349 With[{s = Select[Range[120], SquareFreeQ]}, s - Table[PrimePi[FactorInteger[k][[-1, 1]]], {k, s}]] (* _Amiram Eldar_, Mar 04 2024 *)
%o A243349 (Scheme) (define (A243349 n) (A243291 (A005117 n)))
%Y A243349 Cf. A005117, A243289, A243290, A243291, A243348.
%K A243349 nonn
%O A243349 1,4
%A A243349 _Antti Karttunen_, Jun 04 2014