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 A322912 #5 Dec 31 2018 13:18:47
%S A322912 1,1,2,3,5,6,10,11,15,17,23,24,33,34,42,46,56,57,71,72,88,93,109,110,
%T A322912 134,136,158,163,191,192,229,230,266,273,311,315,370,371,419,428,491,
%U A322912 492,565,566,642,654,730,731,836,838,936
%N A322912 Number of integer partitions of n whose parts are all powers of the same squarefree number.
%C A322912 First differs from A072720 at a(12) = 33, A072720(12) = 34.
%e A322912 The a(1) = 1 through a(8) = 15 integer partitions:
%e A322912 (1) (2) (3) (4) (5) (6) (7) (8)
%e A322912 (11) (21) (22) (41) (33) (61) (44)
%e A322912 (111) (31) (221) (42) (331) (71)
%e A322912 (211) (311) (51) (421) (422)
%e A322912 (1111) (2111) (222) (511) (611)
%e A322912 (11111) (411) (2221) (2222)
%e A322912 (2211) (4111) (3311)
%e A322912 (3111) (22111) (4211)
%e A322912 (21111) (31111) (5111)
%e A322912 (111111) (211111) (22211)
%e A322912 (1111111) (41111)
%e A322912 (221111)
%e A322912 (311111)
%e A322912 (2111111)
%e A322912 (11111111)
%t A322912 radbase[n_]:=n^(1/GCD@@FactorInteger[n][[All,2]]);
%t A322912 powsqfQ[n_]:=SameQ@@Last/@FactorInteger[n];
%t A322912 Table[Length[Select[IntegerPartitions[n],And[And@@powsqfQ/@#,SameQ@@radbase/@DeleteCases[#,1]]&]],{n,30}]
%Y A322912 Cf. A000961, A005117, A018819, A023893, A052410, A072720, A072721, A072774, A302593, A322847, A322900, A322901, A322911.
%K A322912 nonn
%O A322912 0,3
%A A322912 _Gus Wiseman_, Dec 30 2018