login
a(n+1)-+a(n)=prime,a(1)=0,a(2)=3.
12

%I #4 Jun 19 2021 12:56:51

%S 0,3,8,11,18,23,30,37,42,47,50,53,56,75,82,85,88,91,102,109,114,119,

%T 122,129,134,137,140,143,150,157,160,171,176,183,190,193,196,201,208,

%U 211,222,227,230,233,246,253,256,267,274,297,302,305,308,311,330,343,348

%N a(n+1)-+a(n)=prime,a(1)=0,a(2)=3.

%C Sum and difference of any of two consecutive numbers in current sequence are prime numbers : 8-3=5;8+3=11, 11-8=3;11+8=19, 18-11=7;18+11=29,...

%t a=0;b=3;lst={a,b};Do[If[PrimeQ[n-b]&&PrimeQ[n+b],AppendTo[lst,n];a=b;b=n],{n,b+1,7!}];lst

%Y Cf. A154484

%K nonn

%O 1,2

%A _Vladimir Joseph Stephan Orlovsky_, Jan 10 2009

%E NAME adapted to offset. - _R. J. Mathar_, Jun 19 2021