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
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 28 2009
EXTENSIONS
Edited by N. J. A. Sloane, Aug 08 2009
STATUS
approved