OFFSET
1,2
COMMENTS
Sum and difference of any of two consecutive numbers in current sequence are prime numbers and multiplication and any two consecutive numbers is Average of twin prime pairs : 4-1=3;4+1=5;4*1=4, 15-4=11;15+4=19;15*4=60, ...
MATHEMATICA
a=1; b=4; lst={a, b}; Do[If[PrimeQ[n-b]&&PrimeQ[n+b]&&PrimeQ[n*b-1]&&PrimeQ[n*b+1], AppendTo[lst, n]; a=b; b=n], {n, b+1, 9!}]; 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