|
|
A126697
|
|
a(0)=1. For n>=1, a(n) = a(n-1) + (largest divisor of n which occurs among the earlier terms of the sequence).
|
|
0
|
|
|
1, 2, 4, 5, 9, 14, 16, 17, 21, 30, 35, 36, 40, 41, 55, 60, 76, 93, 102, 103, 108, 129, 131, 132, 136, 141, 143, 152, 166, 167, 197, 198, 214, 215, 232, 267, 303, 304, 306, 307, 347, 388, 409, 410, 414, 423, 425, 426, 442, 443, 448, 465, 469, 470, 479, 534, 548
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
f[l_List] := Append[l, l[[ -1]] + Max @@ Intersection[l, Divisors[Length[l]]]]; Nest[f, {1}, 60] (* Ray Chandler, Feb 19 2007 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|