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 A362422 #9 Feb 16 2025 08:34:05 %S A362422 0,0,1,0,0,1,0,0,1,1,1,0,1,1,0,0,1,2,1,0,1,0,0,0,1,1,1,0,1,1,0,1,1,2, %T A362422 1,1,2,1,0,0,2,2,0,1,1,1,0,0,1,0,2,0,2,1,1,0,0,2,1,1,0,1,0,1,1,2,0,0, %U A362422 2,0,0,0,2,1,1,0,1,0,0,0,1,1,1,0,0,2,0,0,0,2,1,1 %N A362422 Number of partitions of n into 2 perfect powers (A001597). %H A362422 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PerfectPower.html">Perfect Power</a>. %t A362422 perfectPowerQ[n_] := n == 1 || GCD @@ FactorInteger[n][[;; , 2]] > 1; a[n_] := Count[IntegerPartitions[n, {2}], _?(AllTrue[#, perfectPowerQ] &)]; Array[a, 100, 0] (* _Amiram Eldar_, May 05 2023 *) %Y A362422 Cf. A001597, A362423. %K A362422 nonn %O A362422 0,18 %A A362422 _Ilya Gutkovskiy_, Apr 19 2023