|
Search: id:A122804
|
|
|
| A122804 |
|
Smallest positive number divisible by n which is not of the form a(i)+a(j) for i and j <= n-1. |
|
+0
5
|
|
| 1, 4, 3, 12, 10, 12, 21, 32, 9, 40, 55, 48, 26, 28, 45, 112, 17, 108, 114, 180, 63, 132, 23, 168, 150, 104, 270, 28, 145, 150, 186, 128, 99, 170, 70, 252, 370, 266, 39, 400, 328, 252, 301, 352, 495, 92, 188, 576, 245, 150, 408, 468, 106, 486, 165, 784, 342, 406, 649
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Same as A122544, except that a(n) is allowed to take values already in the sequence.
|
|
MATHEMATICA
|
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*)
|
|
CROSSREFS
|
Cf. A122537, A122544, A122805 (a(n)/n), A122806 (complement).
Sequence in context: A074324 A162766 A166552 this_sequence A122544 A054908 A141826
Adjacent sequences: A122801 A122802 A122803 this_sequence A122805 A122806 A122807
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Ray Chandler (rayjchandler(AT)sbcglobal.net), Sep 23 2006
|
|
|
Search completed in 0.002 seconds
|
