The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A130714 Number of partitions of n such that every part divides the largest part and such that the smallest part divides every part. 15
 1, 2, 3, 5, 6, 10, 11, 16, 19, 26, 27, 41, 42, 55, 64, 81, 83, 114, 116, 151, 168, 202, 210, 277, 289, 348, 382, 460, 478, 604, 623, 747, 812, 942, 1006, 1223, 1269, 1479, 1605, 1870, 1959, 2329, 2434, 2818, 3056, 3458, 3653, 4280, 4493, 5130, 5507, 6231, 6580 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS First differs from A130689 at a(11) = 27, A130689(11) = 28. Alternative name: Number of integer partitions of n with a part divisible by and a part dividing all the other parts. With this definition we have a(0) = 1. - Gus Wiseman, Apr 18 2021 LINKS Table of n, a(n) for n=1..53. FORMULA G.f.: Sum_{i>=0} Sum_(j>0} x^(j+i*j)/Product_{k|i} (1-x^(j*k)). EXAMPLE From Gus Wiseman, Apr 18 2021: (Start) The a(1) = 1 though a(8) = 16 partitions: (1) (2) (3) (4) (5) (6) (7) (8) (11) (21) (22) (41) (33) (61) (44) (111) (31) (221) (42) (331) (62) (211) (311) (51) (421) (71) (1111) (2111) (222) (511) (422) (11111) (411) (2221) (611) (2211) (4111) (2222) (3111) (22111) (3311) (21111) (31111) (4211) (111111) (211111) (5111) (1111111) (22211) (41111) (221111) (311111) (2111111) (11111111) (End) MAPLE A130714 := proc(n) local gf, den, i, k, j ; gf := 0 ; for i from 0 to n do for j from 1 to n/(1+i) do den := 1 ; for k in numtheory[divisors](i) do den := den*(1-x^(j*k)) ; od ; gf := taylor(gf+x^(j+i*j)/den, x=0, n+1) ; od ; od: coeftayl(gf, x=0, n) ; end: seq(A130714(n), n=1..60) ; # R. J. Mathar, Oct 28 2007 MATHEMATICA Table[If[n==0, 1, Length[Select[IntegerPartitions[n], And@@IntegerQ/@(#/Min@@#)&&And@@IntegerQ/@(Max@@#/#)&]]], {n, 0, 30}] (* Gus Wiseman, Apr 18 2021 *) CROSSREFS The second condition alone gives A083710. The first condition alone gives A130689. The opposite version is A343342. The Heinz numbers of these partitions are the complement of A343343. The half-opposite versions are A343344 and A343345. The complement is counted by A343346. The strict case is A343378. A000009 counts strict partitions. A000041 counts partitions. A000070 counts partitions with a selected part. A006128 counts partitions with a selected position. A015723 counts strict partitions with a selected part. Cf. A338470, A341450, A342193, A343337, A343338, A343341, A343379, A343382. Sequence in context: A018396 A003238 A051839 * A130689 A024560 A000039 Adjacent sequences: A130711 A130712 A130713 * A130715 A130716 A130717 KEYWORD easy,nonn AUTHOR Vladeta Jovovic, Jul 02 2007 EXTENSIONS More terms from R. J. Mathar, Oct 28 2007 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 24 02:45 EDT 2024. Contains 374575 sequences. (Running on oeis4.)