%I A037174
%S A037174 2,3,5,7,11,13,47,61,73,107,167,179,313,347,421,479,719,863,1153,1213,
               1283,
%T A037174 1307,1523,3467,3733,4007,4621,4787,5087,5113,5413,7523,7703,9817,10333,
%U A037174 12347,12539,13381,17027,18553,19717,19813,23399,26003,31873,36097,38833
%N A037174 Primes which are not the sum of consecutive composite numbers.
%H A037174 T. D. Noe, <a href="b037174.txt">Table of n, a(n) for n=1..3492</a> (terms 
               less than 2*10^9)
%p A037174 Maple program from Robert Israel (israel(AT)math.ubc.ca), Jun 24 2008:
%p A037174 N:= 5000:
%p A037174 primes,comps:= selectremove(isprime,{$2..N}):
%p A037174 M:= nops(comps):
%p A037174 X:= primes:
%p A037174 for n from 1 to floor(sqrt(2*N)) do
%p A037174 i:= 1;
%p A037174 T:= add(comps[k],k=1..n);
%p A037174 while T <= N do
%p A037174 X := X minus {T};
%p A037174 if i + n > M then break fi;
%p A037174 T := T + comps[i+n] - comps[i];
%p A037174 i := i+1;
%p A037174 od;
%p A037174 od:
%p A037174 X;
%Y A037174 Sequence in context: A067908 A128292 A140464 this_sequence A037949 A110600 
               A029979
%Y A037174 Adjacent sequences: A037171 A037172 A037173 this_sequence A037175 A037176 
               A037177
%K A037174 nonn
%O A037174 1,1
%A A037174 Naohiro Nomoto (6284968128(AT)geocities.co.jp)
%E A037174 More terms from Jud McCranie (j.mccranie(AT)comcast.net), Jul 12 2000
%E A037174 Corrected by T. D. Noe, Aug 15 2008