login
This site is supported by donations to The OEIS Foundation.

 

Logo

110 people attended OEIS-50 (videos, suggestions); annual fundraising drive to start soon (donate); editors, please edit! (stack is over 300), your editing is more valuable than any donation.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A051704 Maximal value of products of partitions of n into powers of distinct primes (powers of 1 and 2 excluded). 2
1, 0, 0, 3, 0, 5, 0, 7, 15, 9, 21, 11, 35, 13, 45, 105, 63, 17, 77, 165, 99, 315, 117, 385, 143, 495, 1155, 693, 1365, 819, 221, 1001, 3465, 1287, 4095, 1309, 5005, 1683, 6435, 15015, 9009, 2431, 8415, 19635, 11781, 45045, 13923, 25935, 17017, 58905, 21879 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

Table of n, a(n) for n=0..50.

EXAMPLE

a(14)=45 because max{3*11,9*5}=45.

MATHEMATICA

a[n_] := (pp = Reap[ Do[ pk = p^k; If[pk <= n, Sow[pk]], {p, Prime[ Range[2, PrimePi[n]]]}, {k, 1, Ceiling[Log[3, n]]}]][[2, 1]]; sel = Select[ IntegerPartitions[n, All, pp], Length[#] == Length[ Union[#] && !MatchQ[#, {___, x_, ___, y_, ___} /; GCD[x, y] != 1]] &]; Max[Times @@@ sel]); a[0] = 1; a[1] = a[2] = a[4] = a[6] = 0; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Jul 31 2012 *)

CROSSREFS

Cf. A051703.

Sequence in context: A160035 A210451 A239233 * A049689 A227901 A118657

Adjacent sequences:  A051701 A051702 A051703 * A051705 A051706 A051707

KEYWORD

nonn

AUTHOR

Vladeta Jovovic

EXTENSIONS

a(43) (typo?) corrected by Jean-François Alcover, Jul 31 2012

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified October 30 14:26 EDT 2014. Contains 248818 sequences.