%I #8 Mar 03 2018 14:52:09
%S 1,2,2,3,3,5,4,6,5,7,6,11,7,9,8,13,9,17,10,14,11,19,12,15,13,18,14,23,
%T 15,29,16,21,17,21,18,31,19,26,20,37,21,41,22,27,23,43,24,35,25,34,26,
%U 47,27,33,28,38,29,53,30,59,31,42,32,39,33,61,34,46
%N Smallest Heinz number of a partition obtained from y by removing one square from its Young diagram, where y is the integer partition with Heinz number n > 1.
%C The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
%t dip[n_]:=Min@@Table[n/q*If[q===2,1,NextPrime[q,-1]],{q,Select[Divisors[n],PrimeQ]}];
%t Table[dip[n],{n,2,50}]
%Y Cf. A000041, A000085, A001221, A005117, A056239, A094457, A112798, A122111, A153452, A215366, A238690, A296150, A299925.
%K nonn
%O 2,2
%A _Gus Wiseman_, Mar 01 2018
|