A340759 Primes p such that 2*p+3*q is prime, where q is the next prime after p.

2, 5, 7, 11, 19, 29, 31, 37, 41, 43, 53, 67, 73, 83, 107, 109, 113, 127, 131, 137, 149, 151, 163, 167, 173, 193, 197, 199, 211, 239, 257, 271, 317, 347, 353, 379, 383, 397, 401, 431, 439, 449, 457, 461, 467, 487, 557, 563, 569, 587, 599, 601, 647, 659, 701, 743, 757, 773, 797, 809, 821, 823, 863

Offset

1,1

Links

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

Example

a(3)=7 is a term because 7 and 11 are consecutive primes and 2*7+3*11 = 47 is prime.

Maple

P:= [seq(ithprime(i), i=1..1000)]:
P[select(i -> isprime(2*P[i]+3*P[i+1]), [$1..999])];

Mathematica

Select[Partition[Prime[Range[200]], 2, 1], PrimeQ[2#[[1]]+3#[[2]]]&][[;; , 1]] (* Harvey P. Dale, Aug 09 2023 *)

Crossrefs

Cf. A151800.

Sequence in context: A045351 A051645 A116635 * A252280 A184774 A038884

Adjacent sequences: A340756 A340757 A340758 * A340760 A340761 A340762

Keyword

nonn

Author

J. M. Bergot and Robert Israel, Jan 19 2021

Status

approved