# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a009302
Showing 1-1 of 1

%I A009302 #10 Jun 09 2017 03:37:30
%S A009302 2,7,17,37,52,77,107,122,157,217,247,262,292,317,367,437,497,527,542,
%T A009302 587,632,637,737,752,857,877,887,997,1057,1087,1102,1177,1267,1277,
%U A009302 1312,1372,1477,1507,1522,1717,1732,1757,1777,1822,1837,1927,1997,2047,2077,2117
%N A009302 If a, b are in the sequence, so is ab+3.
%H A009302 Robert Israel, <a href="/A009302/b009302.txt">Table of n, a(n) for n = 1..10000</a>
%p A009302 N:= 10000: # to get all terms <= N
%p A009302 S:= {2}:
%p A009302 Agenda:= {2};
%p A009302 while Agenda <> {} do
%p A009302   x:= Agenda[1];
%p A009302   T:= select(`<=`, map(s -> s*x+3, S) minus S, N);
%p A009302   S:= S union T;
%p A009302   Agenda:= Agenda[2..-1] union T;
%p A009302 od:
%p A009302 sort(convert(S,list)); # _Robert Israel_, Jun 08 2017
%K A009302 nonn
%O A009302 1,1
%A A009302 _David W. Wilson_

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE