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

%I A067373
%S A067373 240,287,311,340,371,510,660,803,863,864,931,961,990,1012,1060,1099,
%T A067373 1104,1151,1164,1236,1313,1320,1367,1392,1524,1643,1650,1710,1788,1793,
%U A067373 1854,1951,1956,2040,2303,2304,2387,2393,2436,2507,2556,2586,2647,2670
%N A067373 Integers expressible as the sum of (at least two) consecutive primes 
               in at least 3 ways.
%H A067373 P. De Geest, <a href="http://www.worldofnumbers.com/em122.htm">WONplate 
               122</a>
%H A067373 C. Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_046.htm">
               Puzzle 46</a>
%H A067373 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               PrimeSums.html">Prime Sums</a>
%e A067373 E.g. 240 = (113 + 127) = (53 + 59 + 61 + 67) = (17 + 19 + 23 + 29 + 31 
               + 37 + 41 + 43) or (#2,113) (#4,53) (#8,17).
%t A067373 m=3*5!; lst={}; Do[p=Prime[a]; Do[p+=Prime[b]; If[p<Prime[m]*3+8,AppendTo[lst,
               p]],{b,a+1,m,1}],{a,m}]; lst1=Sort[lst]; lst={}; Do[If[lst1[[n]]==lst1[[n+1]]&&lst1[[n]]==lst1[[n+2]],
               AppendTo[lst,lst1[[n]]]],{n,Length[lst1]-2}]; Union[lst] [From Vladimir 
               Orlovsky (4vladimir(AT)gmail.com), Aug 15 2009]
%Y A067373 Cf. A050936, A067372-A067381, A054998.
%Y A067373 Sequence in context: A121378 A135194 A031173 this_sequence A030638 A099833 
               A154378
%Y A067373 Adjacent sequences: A067370 A067371 A067372 this_sequence A067374 A067375 
               A067376
%K A067373 nonn
%O A067373 0,1
%A A067373 Patrick De Geest (pdg(AT)worldofnumbers.com), Feb 04 2002.

Search completed in 0.001 seconds