cp's OEIS Frontend

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.

A072720 Number of partitions of n into parts which are each powers of a single number (which may vary between partitions).

This page as a plain text file.
%I A072720 #10 Jan 02 2019 11:40:28
%S A072720 1,1,2,3,5,6,10,11,15,17,23,24,34,35,43,47,57,58,73,74,91,96,112,113,
%T A072720 139,141,163,168,197,198,235,236,272,279,317,321,378,379,427,436,501,
%U A072720 502,575,576,653,666,742,743,851,853,952,963,1080,1081,1211,1216,1361
%N A072720 Number of partitions of n into parts which are each powers of a single number (which may vary between partitions).
%C A072720 First differs from A322912 at a(12) = 34, A322912(12) = 33.
%F A072720 a(n) = a(n-1) + A072721(n). a(p) = a(p-1)+1 for p prime.
%e A072720 a(6)=10 since 6 can be written as 6 (powers of 6), 5+1 (5), 4+1+1 (4 or 2), 3+3 (3), 3+1+1+1 (3), 4+2 (2), 2+2+2 (2), 2+2+1+1 (2), 2+1+1+1+1 (2) and 1+1+1+1+1+1 (powers of anything).
%e A072720 From _Gus Wiseman_, Jan 01 2019: (Start)
%e A072720 The a(1) = 1 through a(8) = 15 integer partitions:
%e A072720   (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
%e A072720        (11)  (21)   (22)    (41)     (33)      (61)       (44)
%e A072720              (111)  (31)    (221)    (42)      (331)      (71)
%e A072720                     (211)   (311)    (51)      (421)      (422)
%e A072720                     (1111)  (2111)   (222)     (511)      (611)
%e A072720                             (11111)  (411)     (2221)     (2222)
%e A072720                                      (2211)    (4111)     (3311)
%e A072720                                      (3111)    (22111)    (4211)
%e A072720                                      (21111)   (31111)    (5111)
%e A072720                                      (111111)  (211111)   (22211)
%e A072720                                                (1111111)  (41111)
%e A072720                                                           (221111)
%e A072720                                                           (311111)
%e A072720                                                           (2111111)
%e A072720                                                           (11111111)
%e A072720 (End)
%t A072720 radbase[n_]:=n^(1/GCD@@FactorInteger[n][[All,2]]);
%t A072720 Table[Length[Select[IntegerPartitions[n],SameQ@@radbase/@DeleteCases[#,1]&]],{n,30}] (* _Gus Wiseman_, Jan 01 2019 *)
%Y A072720 Cf. A000123, A005704, A005705, A005706, A072721.
%Y A072720 Cf. A018819, A023893, A052410, A102430, A322900, A322901, A322902, A322903, A322912.
%K A072720 nonn
%O A072720 0,3
%A A072720 _Henry Bottomley_, Jul 05 2002