A163487 Primes p such that 6*p is the sum of two consecutive primes.

2, 3, 5, 7, 13, 23, 31, 37, 43, 103, 127, 131, 151, 163, 167, 229, 241, 257, 293, 311, 313, 337, 389, 433, 509, 521, 523, 613, 647, 661, 719, 739, 743, 757, 797, 821, 887, 937, 953, 971, 1013, 1033, 1063, 1151, 1153, 1217, 1283, 1303, 1307, 1319, 1373, 1451

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jul 28 2009

Keywords

• nonn

Examples

			2*6=12=5+7, 3*6=18=7+11, 5*6=30=13+17, ..
		

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001043, A118134.

Programs

Maple

Primes:= select(isprime, [seq(i,i=3..10^4, 2)]):
select(t -> t::integer and isprime(t), (Primes[1..-2]+Primes[2..-1])/6); # Robert Israel, Jun 19 2018

Mathematica

Select[ListConvolve[{1,1},Prime[Range[1000]]]/6,PrimeQ] (* Paolo Xausa, Nov 03 2023 *)

Extensions

Edited by N. J. A. Sloane, Aug 08 2009