%I #16 Nov 03 2023 23:32:51
%S 2,3,5,7,13,23,31,37,43,103,127,131,151,163,167,229,241,257,293,311,
%T 313,337,389,433,509,521,523,613,647,661,719,739,743,757,797,821,887,
%U 937,953,971,1013,1033,1063,1151,1153,1217,1283,1303,1307,1319,1373,1451
%N Primes p such that 6*p is the sum of two consecutive primes.
%H Robert Israel, <a href="/A163487/b163487.txt">Table of n, a(n) for n = 1..10000</a>
%e 2*6=12=5+7, 3*6=18=7+11, 5*6=30=13+17, ..
%p Primes:= select(isprime, [seq(i,i=3..10^4, 2)]):
%p select(t -> t::integer and isprime(t), (Primes[1..-2]+Primes[2..-1])/6); # _Robert Israel_, Jun 19 2018
%t Select[ListConvolve[{1,1},Prime[Range[1000]]]/6,PrimeQ] (* _Paolo Xausa_, Nov 03 2023 *)
%Y Cf. A001043, A118134.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 28 2009
%E Edited by _N. J. A. Sloane_, Aug 08 2009
|