|
Search: id:A120576
|
|
|
| A120576 |
|
Irregular array where the n-th row are the divisors, not occurring earlier in the sequence, of the sum of the terms in all previous rows. a(1)=2. |
|
+0
4
|
|
| 2, 1, 3, 6, 4, 12, 7, 14, 28, 11, 77, 5, 15, 33, 55, 165, 73, 146, 219, 438, 9, 18, 657, 1314, 8, 16, 23, 24, 36, 46, 48, 69, 72, 92, 138, 144, 184, 207, 276, 368, 414, 552, 828, 1104, 1656, 3312, 1847, 12929, 5541, 9235, 27705, 19, 38, 3694, 35093, 70186, 487, 974
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Is this sequence a permutation of the positive integers?
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
EXAMPLE
|
Array begins:
2
1
3
6
4,12
7,14,28
Now these terms add up to 77. So row 7 is the divisors of 77 which do not occur earlier in the sequence. 1 and 7 occur in earlier rows, so row 7 is (11,77).
|
|
MATHEMATICA
|
f[t_] := Flatten[Append[t, Select[Divisors[Plus @@ t], FreeQ[t, # ] &]]]; Nest[f, {2}, 14] (*Chandler*)
|
|
CROSSREFS
|
Cf. A120577, A120578, A120579.
Adjacent sequences: A120573 A120574 A120575 this_sequence A120577 A120578 A120579
Sequence in context: A125206 A133904 A094339 this_sequence A063707 A118287 A024930
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
Leroy Quet Jun 15 2006
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Jun 17 2006
|
|
|
Search completed in 0.002 seconds
|
