

A067440


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


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 * A108161 A263349 A297211
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



