login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

If a, b in sequence, so is ab+6.
1

%I #9 Jan 03 2019 03:19:03

%S 2,10,26,58,106,122,218,250,266,442,506,538,586,682,890,1018,1066,

%T 1082,1178,1226,1370,1514,1786,2042,2138,2170,2186,2362,2458,2506,

%U 2666,2746,2762,3034,3178,3370,3578,4090,4282,4346,4378,4426,4730,4922,5018,5066

%N If a, b in sequence, so is ab+6.

%H Robert Israel, <a href="/A009307/b009307.txt">Table of n, a(n) for n = 1..10000</a>

%p R:= {2}:

%p N:= 6000:

%p Agenda:= {2^2+6};

%p while Agenda <> {} do

%p t:= min(Agenda);

%p Agenda:= Agenda minus {t};

%p R:= R union {t};

%p Agenda:= Agenda union (select(`<=`, map(s -> s*t+6, R), N) minus R);

%p od:

%p sort(convert(R,list)); # _Robert Israel_, Jan 03 2019

%K nonn

%O 1,1

%A _David W. Wilson_