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

%I A103248
%S A103248 16,24,36,44,56,60,64,68,76,84,88,92,96,100,104,116,120,124,128,132,136,
%T A103248 140,144,152,156,160,164,168,172,176,184,192,196,200,204,208,212,216,
%U A103248 220,224,228,236,240,244,252,256,264,272,276,280,284,288,296,300,304
%N A103248 Numbers x, without duplication, in pythagorean triples x,y,z where x,
               y,z are relatively prime composite numbers.
%H A103248 MathForFun, <a href="http://groups.yahoo.com/group/mathforfun/message/
               9962">Title?</a>
%e A103248 x=16,y=63, 16^2 + 63^2 = 65^2. 16 is the 1-st entry in the list.
%o A103248 (PARI) pythtri(n) = { local(a,b,c=0,k,x,y,z,vx,vy,wx,wyj); wx=wy= vector(n*n); 
               for(a=1,n, for(b=1,n, x=2*a*b; y=b^2-a^2; z=b^2+a^2; if(y > 0 &!isprime(x) 
               &!isprime(y) &!isprime(z), if(gcd(x,y)==1&gcd(x,z)==1&gcd(y,z)==1, 
               c++; wy[c]=y; wx[c]=x; print(x","y","z); \ write("pythtri.txt",x",
               "y","z); ) ) ) ); vy=vx=vector(c); wy=vecsort(wy); wx=vecsort(wx); 
               for(j=1,n*n, if(wx[j]>0, k++; vx[k]=wx[j]; ); ); for(j=1,200, if(vx[j+1]<>
               vx[j],print1(vx[j]",")) ) }
%Y A103248 Sequence in context: A110893 A014613 A046370 this_sequence A140135 A120142 
               A110228
%Y A103248 Adjacent sequences: A103245 A103246 A103247 this_sequence A103249 A103250 
               A103251
%K A103248 easy,nonn
%O A103248 1,1
%A A103248 Cino Hilliard (hillcino368(AT)gmail.com), Mar 19 2005

Search completed in 0.001 seconds