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 A160813 #37 Sep 24 2023 05:49:05 %S A160813 2,4,6,9,11,13,17,20,23,25,27,30,33,36,39,41,45,49,51,53,56,59,61,65, %T A160813 67,69,72,75,77,81,83,88,91,94,98,100,102,105,107,111,113,116,119,121, %U A160813 123,126,129,134,136,138,142,144,147,149,152,155,158,161,163,165,168 %N A160813 a(n) = n-th squarefree number plus n-th cubefree number. %H A160813 Harvey P. Dale, <a href="/A160813/b160813.txt">Table of n, a(n) for n = 1..1000</a> %F A160813 a(n) = A005117(n) + A004709(n). %F A160813 a(n) ~ c*n, where c = zeta(2) + zeta(3) (A347213). - _Amiram Eldar_, Sep 24 2023 %e A160813 a(1) = 1+1 = 2. %e A160813 a(4) = 5+4 = 9. %e A160813 a(8) = 11+9 = 20. %t A160813 Module[{nn=100,sf,cf,len},sf=Select[Range[nn],SquareFreeQ];cf=Select[ Range[ nn],Max[FactorInteger[#][[All,2]]]<3&];len=Min[ Length[ sf], Length[cf]];Total/@Thread[{Take[sf,len],Take[cf,len]}]] (* _Harvey P. Dale_, Oct 01 2019 *) %Y A160813 Cf. A004709, A005117, A046100, A347213. %K A160813 nonn,easy %O A160813 1,1 %A A160813 _Jonathan Vos Post_, Jan 19 2011