%I A154484
%S A154484 0,2,5,8,11,18,23,30,37,42,47,50,53,56,75,82,85,88,91,102,109,114,119,
%T A154484 122,129,134,137,140,143,150,157,160,171,176,183,190,193,196,201,208,
%U A154484 211,222,227,230,233,246,253,256,267,274,297,302,305,308,311,330,343
%N A154484 a(n+1)-+a(n)=prime, a(0)=0,a(1)=2.
%C A154484 Sum and difference of any of two consecutive numbers in current sequence 
               are prime numbers : 5-2=3;5+2=7, 230-227=3;230+227=457, 233-230=3;
               233+230=463,...
%t A154484 a=0;b=2;lst={a,b};Do[If[PrimeQ[n-b]&&PrimeQ[n+b],AppendTo[lst,n];a=b;
               b=n],{n,3,7!}];lst
%Y A154484 Sequence in context: A088366 A130258 A032765 this_sequence A129300 A107679 
               A018846
%Y A154484 Adjacent sequences: A154481 A154482 A154483 this_sequence A154485 A154486 
               A154487
%K A154484 nonn
%O A154484 1,2
%A A154484 Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 10 2009