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

%I A082123
%S A082123 17,16,26,36,76,94,432,37220,996768,158267352,973348166592,
%T A082123 8429202561226344,419324164827901536306744
%N A082123 Smallest difference > 1 between d and p/d for any divisor d of the partial 
               product p of the sequence, starting with 17.
%o A082123 (PARI) p=17; print1(p,","); for(n=1,13,r=floor(sqrt(p)); d1=1; d2=1; 
               nE=omega(p); P=factor(p); E=P[,2]; P=P[,1]; forvec(v=vector(nE,i,
               [0,E[i]]),x=prod(k=1,nE,P[k]^v[k]); if(x<=r && x>=d2,d1=d2; d2=x,
               if(x<=d2 && x>=d1,d1=x))); difer=p/d2-d2; if(difer<=1,difer=p/d1-d1); 
               print1(difer","); p*=difer)
%Y A082123 Cf. A082120, A003681 (starts with 2, 3), A082124.
%Y A082123 Sequence in context: A022973 A023459 A004458 this_sequence A050256 A102423 
               A010856
%Y A082123 Adjacent sequences: A082120 A082121 A082122 this_sequence A082124 A082125 
               A082126
%K A082123 nonn,hard,more
%O A082123 1,1
%A A082123 Ralf Stephan (ralf(AT)ark.in-berlin.de), Apr 04 2003
%E A082123 a(12) from Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 02 2006
%E A082123 a(13) from Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 14 2006

Search completed in 0.001 seconds