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 A076872 #13 Feb 12 2023 06:06:10 %S A076872 0,1,1,1,2,2,2,3,4,5,5,6,7,7,7,8,9,10,10,11,11,11,11,12,13,14,14,15, %T A076872 16,16,17,18,19,20,21,22,23,23,23,24,25,25,26,27,28,28,28,29,29,30,30, %U A076872 31,32,33,33,33,34,35,36,36,37,37,38,39,40,40,40,41,41,41,41,42,43,44,44 %N A076872 a(n) = number of numbers <= n that are the sum of two squarefull numbers. %D A076872 Aleksandar Ivić, The Riemann Zeta-Function, Wiley, NY, 1985, see p. 439. %H A076872 Amiram Eldar, <a href="/A076872/b076872.txt">Table of n, a(n) for n = 1..10000</a> %t A076872 With[{m = 120}, pow = Select[Range[m], # == 1 || Min[FactorInteger[#][[;; , 2]]] > 1 &]; Accumulate @ BinCounts[Select[Union[Plus @@@ Tuples[pow, {2}]], # <= m &], {1, m, 1}]] (* _Amiram Eldar_, Feb 12 2023 *) %Y A076872 Cf. A001694, A076871. %K A076872 nonn,easy %O A076872 1,5 %A A076872 _N. J. A. Sloane_, Nov 25 2002 %E A076872 More terms from _Vladeta Jovovic_, Nov 26 2002