%I A046064
%S A046064 13,17,19,23,26,29,31,34,37,38,39,41,43,46,47,51,52,53,57,58,59,61,62,
%T A046064 65,67,68,69,71,73,74,76,78,79,82,83,85,86,87,89,91,92,93,94,95,97,102,
%U A046064 103,104,106,107,109,111,113,114,115,116,117,118,119,122,123,124,127
%N A046064 Not a product of partition numbers (A000041).
%H A046064 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               AbelianGroup.html">Link to a section of The World of Mathematics.</
               a>
%H A046064 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               PartitionFunctionPCongruences.html">Link to a section of The World 
               of Mathematics.</a>
%p A046064 with(combinat): A000041:=proc(n) options remember: RETURN(numbpart(n)): 
               end: partdiv:=proc(m,i) local j,q,f: f:=0: for j from i by -1 to 
               2 while(f=0) do if(irem(m, A000041(j))=0) then q:=iquo(m, A000041(j)): 
               if(q=1) then RETURN(1) else f:=partdiv(q,j) fi fi od: RETURN(f): 
               end: for i from 2 to 14 do for n from A000041(i) to A000041(i+1)-1 
               do m:=partdiv(n,i): if m=0 then printf("%d, ",n) fi od od: (C. Ronaldo)
%Y A046064 Cf. A000041, A046056, A046063, A033637.
%Y A046064 Sequence in context: A117326 A052055 A075761 this_sequence A008365 A132077 
               A034845
%Y A046064 Adjacent sequences: A046061 A046062 A046063 this_sequence A046065 A046066 
               A046067
%K A046064 nonn
%O A046064 1,1
%A A046064 Eric Weisstein (eric(AT)weisstein.com)