OFFSET
1,2
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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jan 29 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 18 2002
STATUS
approved