|
|
|
|
1, 1, 3, 2, 2, 4, 9, 5, 4, 3, 5, 5, 9, 5, 4, 8, 15, 8, 12, 27, 52, 7, 4, 2, 5, 3, 6, 106, 14, 5, 9, 5, 4, 6, 107, 180, 21, 362, 121, 183, 176, 69, 59, 150, 28, 151, 232, 19, 10, 2, 11, 9, 233, 360, 247, 304, 155, 244, 195, 98, 231, 174, 196, 50, 591, 296, 198, 51, 199
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,3
|
|
COMMENTS
|
This is always an integer for n>=2.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
nn = 71; c[_] := False;
Array[Set[{a[#], c[#]}, {#, True}] &, 2]; s = a[1] + a[2];
Reap[Do[k = SelectFirst[Divisors[s], ! c[#] &];
c[k] = True; Sow[s/k];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|