%I A058620
%S A058620 7,13,19,23,31,37,43,47,53,61,67,73,79,83,97,103,109,113,127,131,139,
%T A058620 151,157,163,167,173,181,193,223,229,233,241,251,257,263,271,277,283,
%U A058620 293,307,313,317,331,337,349,353,367,373,379,383,397,409,421,433,439
%N A058620 Lesser of two consecutive primes such that their difference divided by 
               two is a prime: ( P(next prime after n) - P(n) )/2 is prime.
%t A058620 Do[ If[ PrimeQ[ (Prime[n + 1] - Prime[n] )/2], Print[ Prime[n] ]], {n, 
               1, 100} ]
%Y A058620 Sequence in context: A088982 A033561 A049591 this_sequence A038910 A035497 
               A059335
%Y A058620 Adjacent sequences: A058617 A058618 A058619 this_sequence A058621 A058622 
               A058623
%K A058620 nonn
%O A058620 1,1
%A A058620 Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 28 2000