|
%I #5 Nov 17 2013 10:04:27
%S 840,1320,1680,2520,3192,3432,4920,5208,5280,5712,6552,6888,9360,
%T 11928,16008,19152,19992,25200,29568,31080,35880,38280,38640,40920,
%U 41832,45240,47880,48360,48720,51240,51480,53040,56280,57288,61320,63240
%N Numbers that can be expressed as the difference of the squares of primes in exactly six distinct ways.
%e 840 = 31^2-11^2 = 37^2-23^2 = 41^2-29^2 = 47^2-37^2 = 73^2-67^2 =
%e 107^2-103^2
%t Take[Transpose[Select[Tally[Sort[Last[#]-First[#]&/@(Subsets[ Prime[ Range[ 2000]],{2}]^2)]],Last[#]==6&]][[1]],40] (* _Harvey P. Dale_, Nov 17 2013 *)
%Y Cf. A090781, A090782, A090788, A092000-A092020.
%K nonn
%O 1,1
%A _Ray Chandler_, Feb 22 2004
|
