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 A051704 #9 Jun 13 2013 14:51:08
%S A051704 1,0,0,3,0,5,0,7,15,9,21,11,35,13,45,105,63,17,77,165,99,315,117,385,
%T A051704 143,495,1155,693,1365,819,221,1001,3465,1287,4095,1309,5005,1683,
%U A051704 6435,15015,9009,2431,8415,19635,11781,45045,13923,25935,17017,58905,21879
%N A051704 Maximal value of products of partitions of n into powers of distinct primes (powers of 1 and 2 excluded).
%e A051704 a(14)=45 because max{3*11,9*5}=45.
%t A051704 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 *)
%Y A051704 Cf. A051703.
%K A051704 nonn
%O A051704 0,4
%A A051704 _Vladeta Jovovic_
%E A051704 a(43) (typo?) corrected by _Jean-François Alcover_, Jul 31 2012