Search: id:A033637
Results 1-1 of 1 results found.

%I A033637
%S A033637 1,2,3,4,5,6,7,8,9,10,11,12,14,15,16,18,20,21,22,24,25,27,28,30,32,33,
%T A033637 35,36,40,42,44,45,48,49,50,54,55,56,60,63,64,66,70,72,75,77,80,81,84,
%U A033637 88,90,96,98,99,100,101,105,108,110,112,120,121,125,126,128,132,135,140
%N A033637 Products of partition numbers A000041(n).
%C A033637 Range of A000688.
%H A033637 David W. Wilson, <a href="b033637.txt">Table of n, a(n) for n = 1..10000</
               a>
%p A033637 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 15 do for n from A000041(i) to A000041(i+1)-1 
               do m:=partdiv(n,i): if m=1 then printf("%d, ",n) fi od od: (C. Ronaldo)
%Y A033637 Cf. A046064.
%Y A033637 Sequence in context: A147820 A033892 A033620 this_sequence A084347 A051038 
               A140332
%Y A033637 Adjacent sequences: A033634 A033635 A033636 this_sequence A033638 A033639 
               A033640
%K A033637 nonn,easy
%O A033637 1,2
%A A033637 N. J. A. Sloane (njas(AT)research.att.com).
%E A033637 More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 02 2005

Search completed in 0.001 seconds