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
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 10 2009
EXTENSIONS
NAME adapted to offset. - R. J. Mathar, Jun 19 2021
STATUS
approved