%I #10 Sep 08 2022 08:45:14

%S 2,2,2,3,3,2,2,3,3,3,2,3,2,3,2,2,2,7,2,3,5,3,3,2,3,3,5,2,2,2,3,5,3,3,

%T 3,3,2,5,7,2,2,7,3,5,2,3,3,3,2,3,2,5,5,3,2,3,2,2,2,2,3,3,5,3,3,3,5,3,

%U 3,3,3,2,5,2,3,3,2,3,5,5,3,3,2,3,2,2,7,5,5,2,5,7,2,2,7,2,2,2,5,2,3,3,7,2,3

%N A098013/2.

%C Half the difference between consecutive primes is prime.

%C (1/2)(29 - 23) = 3, the 4th entry in the table.

%t Select[Differences[Prime[Range[250]]]/2,PrimeQ] (* _Harvey P. Dale_, Dec 20 2012 *)

%o (PARI) f(n) = for(x=1,n,y=prime(x+1)-prime(x);if(isprime(y\2),print1(y\2",")))

%o (Magma) [ a: n in [1..2500] | IsPrime(a) where a is ((NthPrime(n+1)-NthPrime(n)) div 2 )]; // _Vincenzo Librandi_, Apr 19 2011

%K easy,nonn

%O 1,1

%A _Cino Hilliard_, Sep 09 2004