%I #10 Sep 13 2013 05:13:27
%S 17,43,61,73,271,313,331,373,397,409,521,691,733,751,773,859,1051,
%T 1063,1153,1171,1231,1459,1613,1669,1759,1823,1933,2053,2131,2473,
%U 2551,2707,2843,2917,2953,2999,3163,3221,3331,3371,3469,3517,3541,3583,3671,3719
%N Primes p which are equal to 2 plus the sum of three consecutive primes.
%H Vincenzo Librandi, <a href="/A165981/b165981.txt">Table of n, a(n) for n = 1..1000</a>
%e 17 is in the sequence because 2+3+5+7=17; 43=2+11+13+17; 271=2+83+89+97.
%t Select[Total[#] + 2 & / @Partition[Prime[Range[200]], 3, 1], PrimeQ] (* _Vincenzo Librandi_, Sep 13 2013 *)
%Y Cf. A034961. [_R. J. Mathar_, Oct 14 2009]
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Oct 03 2009
%E Edited by _N. J. A. Sloane_, Oct 04 2009
%E Terms from 313 to 773 inserted by _R. J. Mathar_, Oct 14 2009
|