The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A158709 Primes p such that p + ceiling(p/2) is prime. 14

%I

%S 2,3,7,11,19,31,47,59,67,71,127,131,151,167,179,211,239,307,311,347,

%T 379,431,439,467,479,547,571,587,607,619,631,647,727,739,787,811,839,

%U 859,907,911,967,991,1039,1091,1231,1259,1319,1399,1427,1471,1511,1531,1559

%N Primes p such that p + ceiling(p/2) is prime.

%C Or, 2 along with primes p such that Sum_{x=1..p} (1 - (-1)^x*x) is prime. - _Juri-Stepan Gerasimov_, Jul 14 2009

%C Apart from the first term, primes of the form 4*k-1 such that 6*k-1 is also prime. - _Charles R Greathouse IV_, Nov 09 2011

%C If both p and q are in A158709 and p + q == 2 (mod 4), then A006370(A006370(p + q)) = A006370((p + q)/2) = 3*(p + q)/2 + 1 is the sum of the two primes p+ceiling(p/2) and q+ceiling(q/2). - _Roderick MacPhee_, Feb 23 2018

%H Vincenzo Librandi, <a href="/A158709/b158709.txt">Table of n, a(n) for n = 1..1000</a>

%t lst={};Do[p=Prime[n];If[PrimeQ[Ceiling[p/2]+p],AppendTo[lst,p]],{n,6!}];lst

%t Select[Prime@ Range@ 250, PrimeQ@ Ceiling[3#/2] &] (* _Vincenzo Librandi_, Apr 15 2013 and slightly modified by _Robert G. Wilson v_, Feb 26 2018 *)

%o (PARI) forprime(p=2,1e4,if(isprime(p+ceil(p/2)),print1(p", "))) \\ _Charles R Greathouse IV_, Nov 09 2011

%o (PARI) print1(2);forprime(p=3,1e4,if(p%4==3&&isprime(p\4*6+5),print1(", "p))) \\ _Charles R Greathouse IV_, Nov 09 2011

%Y Cf. A158708.

%K nonn,easy

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Mar 24 2009

%E Corrected by _Charles R Greathouse IV_, Mar 18 2010

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 30 12:10 EDT 2020. Contains 333125 sequences. (Running on oeis4.)