_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Jan 29 2002

More terms from _Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), _, Mar 18 2002

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.

nonn,new

nonn

nonn,new

nonn

More terms from Sascha Kurz (sascha.kurz(AT)stud.uni-bayreuth.de), Mar 18 2002

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);

nonn,new

nonn

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);

nonn,new

nonn

nonn,new

nonn

More terms from Sascha Kurz (ssascha.kurz(AT)tustud.uni-bsbayreuth.de), Mar 18 2002

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

1,2

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.

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);

nonn

Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 29 2002

More terms from Sascha Kurz (s.kurz(AT)tu-bs.de), Mar 18 2002

approved