A302094 Number of relatively prime or monic twice-partitions of n.
1, 3, 6, 10, 27, 35, 113, 170, 396, 641, 1649, 2318, 5905, 9112, 18678, 32529, 69094, 106210, 227480, 363433, 705210, 1196190, 2325023, 3724233, 7192245, 11915884, 21857887, 36597843, 67406158, 109594872, 201747847, 333400746, 591125465, 987069077, 1743223350
Offset: 1
Keywords
Examples
The a(4) = 10 relatively prime or monic twice-partitions: (4), (31), (211), (1111), (3)(1), (21)(1), (111)(1), (2)(1)(1), (11)(1)(1), (1)(1)(1)(1).
Links
- A. David Christopher and M. Davamani Christober, Relatively Prime Uniform Partitions, Gen. Math. Notes, Vol. 13, No. 2, December, 2012, pp. 1-12.
Crossrefs
Programs
-
Mathematica
ip[n_]:=ip[n]=Select[IntegerPartitions[n],Or[Length[#]===1,GCD@@#===1]&]; Table[Sum[Times@@Length/@ip/@ptn,{ptn,ip[n]}],{n,10}]
Comments