OFFSET
1,1
COMMENTS
Note that setting a(1) = 1, instead of a(1) = 2, we obtain the sequence 1, 2, 4, 8,..., i.e., the powers of 2. - Giovanni Resta, Apr 07 2014
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
MATHEMATICA
s = {2}; While[(n = Length@s) < 50, z = 1 + Last@s; While[ Catch[ Do[ If[Mod[z - s[[i]], s[[j]]] == 0, Throw@True], {j, 2, n}, {i, j-1}]; False], z++]; AppendTo[s, z]]; s (* Giovanni Resta, Jan 10 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Olaves Foss, Jan 09 2014
EXTENSIONS
a(36)-a(50) from Giovanni Resta, Jan 10 2014
STATUS
approved