|
%I #7 Dec 18 2012 10:39:17
%S 184926,291741,583482,1166964,1458705,1880574,2042187,2333928,2404038,
%T 2917410,3209151,3513594,3792633,4084374,4253298,4667856,4959597,
%U 5543079,5362854,5834820,5732706,6418302,6710043,7293525,7585266
%N Smallest positive integer k with the same sum of cubes of divisors as the n-th integer for which such a k exists.
%H Max Alekseyev, <a href="/A131907/a131907.txt">List of first 224 pairs A131907(n), A131908(n)</a>
%F a(n)=min(k>0, k has the same sum of cubes of divisors as A131907(n))
%e a(1)=184926 because A131907(1)=194315 with the sum of cubes of its divisors being 7401260364550416. This is the same as the sum of cubes of divisors of 184926 and there is no positive integer less than 184926 with this cubesum of its divisors
%t Last@Transpose[Reap[For[n = 1, n <= 5*10^6, n++, (If[Head[ #1] === tmp, #1 = n, Sow[{n, #1}]] & )[ tmp[DivisorSigma[3, n]]]]][[2, 1]]]
%Y Cf. A069822, A131902-A131907.
%K nonn
%O 1,1
%A Peter Pein (petsie(AT)dordos.net), Jul 26 2007, Jul 28 2007
%E More terms from _Max Alekseyev_, Jul 28 2007
|
