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 A078635 #18 Sep 06 2022 13:32:05
%S A078635 1,1,1,1,2,2,2,2,4,5,5,5,7,8,8,8,12,14,15,15,19,21,22,22,28,33,35,37,
%T A078635 43,48,50,52,62,70,75,79,92,100,105,109,126,140,148,157,177,194,202,
%U A078635 211,237,261,276,290,324,351,370,384,424,462,489,514,562,609,640,670,728
%N A078635 Number of partitions of n into perfect powers.
%H A078635 Michael De Vlieger, <a href="/A078635/b078635.txt">Table of n, a(n) for n = 0..10000</a>
%F A078635 G.f.: Product_{k=i^j, i>=1, j>=2, excluding duplicates} 1/(1 - x^k). - _Ilya Gutkovskiy_, Mar 21 2017
%e A078635 a(10)=5 since 10 can be written as 9+1, 8+1+1, 4+4+1+1, 4+1+1+1+1+1+1, or 1+1+1+1+1+1+1+1+1+1.
%t A078635 t = Union[Flatten[Table[n^k, {n, 1, 60}, {k, 2, 10}]]]; p[n_] := IntegerPartitions[n, All, t]; Table[p[n], {n, 0, 12}] (*shows partitions*)
%t A078635 a[n_] := Length@p@n; a /@ Range[0, 80]
%t A078635 (* _Clark Kimberling_, Mar 09 2014 *)
%t A078635 With[{nn = 64}, CoefficientList[Series[Product[1/(1 - x^k), {k, Select[Range[nn], # == 1 || GCD @@ FactorInteger[#][[All, -1]] > 1 &]}], {x, 0, nn}], x]] (* _Michael De Vlieger_, Sep 06 2022 *)
%Y A078635 Cf. A001597.
%Y A078635 Cf. A131799.
%K A078635 nonn
%O A078635 0,5
%A A078635 _Henry Bottomley_, Dec 12 2002