A154484 a(n+1)-+a(n) = prime, a(1)=0, a(2)=2.

0, 2, 5, 8, 11, 18, 23, 30, 37, 42, 47, 50, 53, 56, 75, 82, 85, 88, 91, 102, 109, 114, 119, 122, 129, 134, 137, 140, 143, 150, 157, 160, 171, 176, 183, 190, 193, 196, 201, 208, 211, 222, 227, 230, 233, 246, 253, 256, 267, 274, 297, 302, 305, 308, 311, 330, 343

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 10 2009

Keywords

• nonn

Comments

Sum and difference of any of two consecutive numbers are prime numbers: 5-2=3; 5+2=7, 230-227=3; 230+227=457, 233-230=3; 233+230=463,...

I assume that here and in most of the similar sequences from the same author there is an implicit assumption that we want the "Lexicographically earliest infinite sequence of distinct positive numbers" that satisfies the stated condition. - N. J. A. Sloane, Apr 20 2022

Programs

Mathematica

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

Extensions

NAME adapted to offset. - R. J. Mathar, Jun 19 2021