login
Primes that are 8 plus the sum of three consecutive primes.
2

%I #6 Oct 13 2012 10:40:16

%S 23,31,67,79,139,151,167,181,277,337,379,433,479,541,641,709,739,757,

%T 797,811,919,1069,1087,1237,1279,1399,1619,1697,1787,1801,1951,2083,

%U 2137,2207,2311,2503,2557,2659,2713,2767,2833,2939,3049,3061,3079,3169,3301,3547,3677

%N Primes that are 8 plus the sum of three consecutive primes.

%C Primes of the form 8+A034961(k).

%H Vincenzo Librandi, <a href="/A165985/b165985.txt">Table of n, a(n) for n = 1..1000</a>

%e A000040(9)= 23 = 8+ A034961(2). A000040(11) = 31 = 8+A034961(3). A000040(19) = 67 = 8+A034961(7).

%t Select[Total[#] + 8&/@Partition[Prime[Range[900]], 3, 1], PrimeQ] (* _Vincenzo Librandi_, Oct 13 2012 *)

%K nonn

%O 1,1

%A _Vincenzo Librandi_, Oct 03 2009

%E Extended by _R. J. Mathar_, Oct 05 2009