# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a329151 Showing 1-1 of 1 %I A329151 #15 Apr 24 2021 20:43:18 %S A329151 5,29,47,139,293,557,607,647,659,709,773,809,811,863,1117,1171,1187, %T A329151 1801,2129,2467,2477,2549,2917,3023,3229,3329,3389,3469,3593,3617, %U A329151 3833,4261,4363,5791,5849,6269,6781,6949,7069,7703,8273,9397,9973,10141,10343,10369,10529,10657,11059,11329,13063 %N A329151 Primes p such that (3*p+q)/2 and (p+3*q)/2 are prime, where q is the next prime after p. %C A329151 Intersection with A001359 is A069142. %H A329151 Robert Israel, Table of n, a(n) for n = 1..10000 %e A329151 a(3)=47 is a term because it is prime, the next prime is 53, and (3*47+53)/2 = 97 and (47+3*53)/2 = 103 are both prime. %p A329151 Primes:= [seq(ithprime(i),i=1..10000)]: %p A329151 Res:= NULL: %p A329151 for i from 2 to nops(Primes)-1 do %p A329151 p:= Primes[i]; q:= Primes[i+1]; c:= (p+q)/2; %p A329151 if isprime(p+c) and isprime(q+c) then %p A329151 Res:= Res, p %p A329151 fi %p A329151 od: %p A329151 Res; %Y A329151 Cf. A001359, A069142. %K A329151 nonn %O A329151 1,1 %A A329151 _J. M. Bergot_ and _Robert Israel_, Feb 25 2020 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE