cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A131908 Smallest positive integer k with the same sum of cubes of divisors as the n-th integer for which such a k exists.

This page as a plain text file.
%I A131908 #7 Dec 18 2012 10:39:17
%S A131908 184926,291741,583482,1166964,1458705,1880574,2042187,2333928,2404038,
%T A131908 2917410,3209151,3513594,3792633,4084374,4253298,4667856,4959597,
%U A131908 5543079,5362854,5834820,5732706,6418302,6710043,7293525,7585266
%N A131908 Smallest positive integer k with the same sum of cubes of divisors as the n-th integer for which such a k exists.
%H A131908 Max Alekseyev, <a href="/A131907/a131907.txt">List of first 224 pairs A131907(n), A131908(n)</a>
%F A131908 a(n)=min(k>0, k has the same sum of cubes of divisors as A131907(n))
%e A131908 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 A131908 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 A131908 Cf. A069822, A131902-A131907.
%K A131908 nonn
%O A131908 1,1
%A A131908 Peter Pein (petsie(AT)dordos.net), Jul 26 2007, Jul 28 2007
%E A131908 More terms from _Max Alekseyev_, Jul 28 2007