Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A154486
a(n+1)-+a(n)=prime, a(1)=0,a(2)=5.
11
0, 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, 348
OFFSET
1,2
COMMENTS
Sum and difference of any of two consecutive numbers in current sequence are prime numbers : 8-5=3;8+5=13, 11-8=3;11+8=19, 18-11=7;18+11=29,...
MATHEMATICA
a=0; b=5; lst={a, b}; Do[If[PrimeQ[n-b]&&PrimeQ[n+b], AppendTo[lst, n]; a=b; b=n], {n, b+1, 7!}]; lst
CROSSREFS
Essentially the same as A154484 and A154485.
Sequence in context: A314398 A314399 A175319 * A162612 A314400 A314401
KEYWORD
nonn
AUTHOR
EXTENSIONS
NAME adapted to offset. - R. J. Mathar, Jun 19 2021
STATUS
approved