A067440 Sum(i(n)), where i(n) is the smallest integer with i(n)^m=n for some m.

1, 3, 6, 8, 13, 19, 26, 28, 31, 41, 52, 64, 77, 91, 106, 108, 125, 143, 162, 182, 203, 225, 248, 272, 277, 303, 306, 334, 363, 393, 424, 426, 459, 493, 528, 534, 571, 609, 648, 688, 729, 771, 814, 858, 903, 949, 996, 1044, 1051, 1101, 1152, 1204, 1257, 1311

Offset

1,2

Links

Table of n, a(n) for n=1..54.

Example

a(8) = 28, as the smallest integer roots of numbers from 1 to 8 respectively are 1,2,3,2,5,6,7 and 2. Their sum = 28.

Maple

q[1] := 1:for n from 2 to 100 do a := ifactors(n):c := a[2][1][2]; for i from 2 to nops(a[2]) do c := igcd(c, a[2][i][2]); end do:q[n] := simplify(n^(1/c)); end do:for n from 1 to 100 do w[n] := sum('q[i3]', i3=1..n): end do:ww := seq(w[j4], j4=1..100);

Crossrefs

Sequence in context: A139001 A090961 A073355 * A346597 A108161 A263349

Adjacent sequences: A067437 A067438 A067439 * A067441 A067442 A067443

Keyword

nonn

Author

Amarnath Murthy, Jan 29 2002

Extensions

More terms from Sascha Kurz, Mar 18 2002

Status

approved