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

0, 7, 10, 13, 16, 21, 26, 33, 38, 41, 48, 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,2

Comments

Sum and difference of any of two consecutive numbers in current sequence are prime numbers : 10-7=3;10+7=17, 230-227=3;230+227=457, 233-230=3;233+230=463,...

Essentially the same as A090955. - R. J. Mathar, Jan 12 2009

Links

Table of n, a(n) for n=1..56.

Mathematica

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

Crossrefs

Cf. A154484, A154485, A154486

Sequence in context: A112414 A329387 A034810 * A023390 A096678 A327137

Adjacent sequences: A154484 A154485 A154486 * A154488 A154489 A154490

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 10 2009

Extensions

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

Status

approved