|
Search: id:A109736
|
|
| |
|
| 1, 2, 3, 5, 9, 4, 23, 6, 8, 10, 40, 7, 22, 30, 11, 15, 67, 19, 49, 13, 38, 42, 43, 14, 12, 56, 21, 46, 48, 18, 58, 16, 41, 68, 37, 20, 89, 57, 60, 55, 76, 63, 151, 78, 107, 96, 98, 17, 61, 65, 69, 71, 24, 103, 87, 64, 80, 74, 44, 83, 59, 92, 101, 94, 72, 91, 185, 142, 104, 45
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
a(10^n): 1,10,128,1430, - Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 12 2005
|
|
LINKS
|
Richard J Mathar, Table of n, a(n) for n = 1..282
|
|
MATHEMATICA
|
a[1] = 1; a[2] = 2; a[n_] := a[n] = Block[{t = Table[a[i], {i, n - 1}]}, s = Plus @@ t; d = Divisors[s]; l = Complement[d, t]; If[l != {}, k = First[l], k = s; While[Position[t, k] == {}, k += s]; k]]; t = Table[a[n], {n, 250}]; Table[k = 1; While[ t[[k]] != n, k++ ]; k, {n, 70}] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Sequence in context: A120495 A107477 A064358 this_sequence A119628 A021093 A011026
Adjacent sequences: A109733 A109734 A109735 this_sequence A109737 A109738 A109739
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com) and Nadia Heninger (nadiah(AT)cs.princeton.edu), Aug 11 2005
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 12 2005
|
|
|
Search completed in 0.002 seconds
|
