login
A163487
Primes p such that 6*p is the sum of two consecutive primes.
7
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
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
Sequence in context: A209237 A322475 A181526 * A048413 A064336 A179921
KEYWORD
nonn
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Aug 08 2009
STATUS
approved