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 A085253 #11 Feb 16 2025 08:32:50
%S A085253 1,3,4,6,7,11,14,15,19,21,22,23,27,30,38,39,42,46,47,49,51,55,56,60,
%T A085253 62,66,67,69,70,71,75,77,78,79,83,84,86,87,92,93,94,95,102,103,105,
%U A085253 107,110,111,114,115,118,119,120,123,131,138,139,142,143,147,151,154
%N A085253 Numbers having no representation as sum of two powerful numbers (A001694).
%C A085253 Complement of A076871.
%H A085253 Amiram Eldar, <a href="/A085253/b085253.txt">Table of n, a(n) for n = 1..10000</a>
%H A085253 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PowerfulNumber.html">Powerful Number</a>.
%F A085253 A085252(a(n)) = 0.
%t A085253 With[{m = 160}, pow = Select[Range[m], # == 1 || Min[FactorInteger[#][[;; , 2]]] > 1 &]; Complement[Range[m], Select[Union[Plus @@@ Tuples[pow, {2}]], # <= m &]]] (* _Amiram Eldar_, Jan 30 2023 *)
%Y A085253 Cf. A001694, A076871, A085252.
%Y A085253 Different from A075434.
%K A085253 nonn
%O A085253 1,2
%A A085253 _Reinhard Zumkeller_, Jun 23 2003