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

%I A006339
%S A006339 1,5,25,125,65,3125,15625,325,390625,1953125,1625,48828125,4225,1105,
%T A006339 6103515625,30517578125,40625,21125,3814697265625,203125,
%U A006339 95367431640625,476837158203125,5525,11920928955078125,274625
%N A006339 Least hypotenuse of n distinct Pythagorean triangles.
%H A006339 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               PythagoreanTriple.html">Pythagorean Triple</a>
%H A006339 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               CircleLatticePoints.html">Circle Lattice Points</a>
%t A006339 primeCon1Mod4 = Select[ Prime[ Range[ 50 ] ], (Mod[ #1, 4 ] == 1) & ]; 
               (Times @@ (Take[ primeCon1Mod4, Length[ #1 ] ]^Reverse[ (#1 - 1)/
               2 ])) & /@ ((Join @@ (Table[ #1[ [ 1 ] ], {#1[ [ 2 ] ]} ] & /@ FactorInteger[ 
               #1*2 + 1 ])) & /@ Range[ 0, 50 ]) - Albert Mao, Dec 03 2006
%Y A006339 Except for offset, same as A046112.
%Y A006339 Sequence in context: A036156 A097756 A046112 this_sequence A032534 A036151 
               A036149
%Y A006339 Adjacent sequences: A006336 A006337 A006338 this_sequence A006340 A006341 
               A006342
%K A006339 nonn
%O A006339 0,2
%A A006339 David W. Wilson (davidwwilson(AT)comcast.net)

Search completed in 0.001 seconds