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