Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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_