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,1

Links

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

Example

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

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 *)

Crossrefs

Cf. A001043, A118134.

Sequence in context: A209237 A322475 A181526 * A048413 A064336 A179921

Adjacent sequences: A163484 A163485 A163486 * A163488 A163489 A163490

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 28 2009

Extensions

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

Status

approved