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

%I A094714
%S A094714 2,3,41,89,251,269,593,461,521,929,761,941,1109,1481,1601,1361,2309,
%T A094714 1949,1889,2141,2729,2609,3701,3461,3989,3449,5309,4241,4289,5081,7589,
%U A094714 5381,9521,6569,8861,7229,7829,8501,8069
%N A094714 Smallest prime having exactly n representations as a^2+b^2+c^2 with c 
               >= b >= a > 0.
%e A094714 a(2) = 41 because 41 = 1+4+36 = 9+16+16.
%t A094714 lim=50; pLst=Table[0, {PrimePi[lim^2]}]; Do[n=a^2+b^2+c^2; If[n<lim^2 
               && PrimeQ[n], pLst[[PrimePi[n]]]++ ], {a, lim}, {b, a, Sqrt[lim^2-a^2]}, 
               {c, b, Sqrt[lim^2-a^2-b^2]}; Table[First[Prime[Flatten[Position[pLst, 
               n]]]], {n, 0, 38}]
%Y A094714 Cf. A094713 (number of ways that prime(n) can be represented as a^2+b^2+c^2 
               with a >= b >= c > 0).
%Y A094714 Sequence in context: A077336 A013646 A059800 this_sequence A042475 A123993 
               A101821
%Y A094714 Adjacent sequences: A094711 A094712 A094713 this_sequence A094715 A094716 
               A094717
%K A094714 nonn
%O A094714 0,1
%A A094714 T. D. Noe (noe(AT)sspectra.com), May 21 2004

Search completed in 0.001 seconds