

A049831


a(n) = MAX{T(n,k): k=1,2,...,n}, array T as in A049828.


1



0, 0, 1, 1, 3, 2, 4, 6, 5, 6, 8, 8, 11, 10, 9, 12, 12, 15, 15, 14, 19, 16, 19, 18, 19, 22, 21, 23, 26, 25, 27, 24, 27, 32, 27, 30, 33, 31, 33, 30, 35, 38, 35, 38, 40, 38, 44, 39, 44, 46, 43, 44, 47, 45, 53, 46, 49, 52, 50, 56, 54, 54, 57, 56
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,5


COMMENTS

a(n)/n > 1, while n goes to infinity (for proof see attached link).  Tiberiu SzocsMihai, Aug 17 2015


LINKS

Table of n, a(n) for n=1..64.
Tiberiu SzocsMihai, Euclidean summation functions, Math Ticks Blog, January 2011.


PROG

(PARI) a(nn) = {for (n=1, nn, m = 0; for (k=1, n, a = n; b = k; r = 1; s = 0; while (r, q = a\b; r = a  b*q; s += r; a = b; b = r); m = max(m, s); ); print1(m, ", "); ); } \\ Michel Marcus, Aug 18 2015


CROSSREFS

Cf. A049828.
Sequence in context: A129601 A340579 A187566 * A186005 A080782 A116941
Adjacent sequences: A049828 A049829 A049830 * A049832 A049833 A049834


KEYWORD

nonn


AUTHOR

Clark Kimberling


STATUS

approved



