%I A122804
%S A122804 1,4,3,12,10,12,21,32,9,40,55,48,26,28,45,112,17,108,114,180,63,132,23,
%T A122804 168,150,104,270,28,145,150,186,128,99,170,70,252,370,266,39,400,328,
%U A122804 252,301,352,495,92,188,576,245,150,408,468,106,486,165,784,342,406,649
%N A122804 Smallest positive number divisible by n which is not of the form a(i)+a(j) 
               for i and j <= n-1.
%C A122804 Same as A122544, except that a(n) is allowed to take values already in 
               the sequence.
%t A122804 f[s_] := Block[{n, k},k = n = Length[s] + 1;While[MemberQ[Union[Plus 
               @@@ Tuples[s, 2]], k], k += n];Append[s, k]];Nest[f, {1}, 60] (*Chandler*)
%Y A122804 Cf. A122537, A122544, A122805 (a(n)/n), A122806 (complement).
%Y A122804 Sequence in context: A074324 A162766 A166552 this_sequence A122544 A054908 
               A141826
%Y A122804 Adjacent sequences: A122801 A122802 A122803 this_sequence A122805 A122806 
               A122807
%K A122804 nonn
%O A122804 1,2
%A A122804 Ray Chandler (rayjchandler(AT)sbcglobal.net), Sep 23 2006