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 A085254 #10 Feb 16 2025 08:32:50
%S A085254 2,5,8,9,10,12,13,16,18,20,24,25,26,28,29,31,32,34,35,37,43,44,45,48,
%T A085254 53,54,58,59,61,63,64,74,82,88,90,91,96,98,99,100,101,106,112,121,122,
%U A085254 124,126,127,128,134,135,140,141,146,149,150,155,161,162,169,171
%N A085254 Numbers having a unique representation as sum of two powerful numbers (A001694).
%H A085254 Amiram Eldar, <a href="/A085254/b085254.txt">Table of n, a(n) for n = 1..10000</a>
%H A085254 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PowerfulNumber.html">Powerful Number</a>.
%F A085254 A085252(a(n)) = 1.
%t A085254 With[{m = 180}, pow = Select[Range[m], # == 1 || Min[FactorInteger[#][[;; , 2]]] > 1 &]; Position[BinCounts[Select[Plus @@@ Union[Sort /@ Tuples[pow, {2}]], # <= m &], {1, m, 1}], 1] // Flatten] (* _Amiram Eldar_, Jan 30 2023 *)
%Y A085254 Cf. A001694, A076871, A085252, A085253, A085255.
%K A085254 nonn
%O A085254 1,1
%A A085254 _Reinhard Zumkeller_, Jun 23 2003