%I #6 Nov 26 2013 06:52:59
%S 61,71,73,97,107,163,179,197,233,239,257,263,271,307,331,349,359,367,
%T 397,409,419,421,461,467,479,487,503,523,547,571,593,599,613,617,631,
%U 659,677,691,709,727,733,743,757,761,787,809,811,821,827,839,857
%N Primes which are the sum of at least 3 consecutive odd nonprimes (A014076) >1.
%e 15+21+25 = 61, 9+15+21+25+27 = 97.
%t lst={};Do[If[PrimeQ[m],Continue[]];s=m;Do[If[PrimeQ[n],Continue[]];s+=n;If[PrimeQ[s],If[s<=2917,AppendTo[lst,s]]],{n,m+2,2*6!,2}],{m,1,2*6!,2}];lst=Take[Union@lst,200]
%o (PARI) N=1000;v=vector(N);L=listcreate();n=9;while(n<N,if(!isprime(n),listput(L,n));n=n+2);vv=Vec(L);forstep(k=3,#vv,2,for(offs=1,#vv-k+1,s=sum(i=offs,offs+k-1,vv[i]);if(isprime(s)&&s<=N,v[s]=1)));for(n=60,#v,if(v[n],print1(n,","))) \\ _Ralf Stephan_, Nov 26 2013
%Y Cf. A106091.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Sep 13 2009
%E Edited by _Ralf Stephan_, Nov 26 2013
|