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 : 6-1=5; 6+1=7; 6*1=6, 17-6=11; 17+6=23; 17*6=102, ... .
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(x) local k;
for k from x+1 by 2 do
if isprime(k+x) and isprime(k-x) and isprime(k*x-1) and isprime(k*x+1) then return k fi
od;
end proc:
R:= 1, 6: x:= 6:
for count from 3 to 100 do
x:= f(x);
R:= R, x
od:
R; # Robert Israel, Nov 29 2023
MATHEMATICA
a=1; b=6; 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