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.
%I A131907 #7 Sep 22 2024 17:49:03
%S A131907 194315,295301,2953010,1181204,1476505,1886920,2067107,2362408,
%T A131907 2526095,2953010,3248311,3691985,3838913,4134214,4469245,4724816,
%U A131907 5020117,5610719,5635135,5906020,6023765,6496622,6791923,7382525,7677826
%N A131907 Integers for which a smaller positive integer exists which has the same sum of cubes of its divisors.
%C A131907 If i < j and A001158(i) = A001158(j) then j is in this sequence. - _Jason Yuen_, Sep 22 2024
%H A131907 Max Alekseyev, <a href="/A131907/a131907.txt">List of first 224 pairs A131907(n), A131908(n)</a>
%F A131907 n-th element of {x>0: there exists a k with 0<k<x and the same sum of the cubes of its divisors as x}.
%e A131907 194315 is in this sequence because A001158(184926) = A001158(194315) = 7401260364550416.
%t A131907 First@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 A131907 Cf. A001158, A069822, A131902-A131908.
%K A131907 nonn
%O A131907 1,1
%A A131907 Peter Pein (petsie(AT)dordos.net), Jul 26 2007, Jul 28 2007
%E A131907 More terms from _Max Alekseyev_ and Daniel Lichtblau (danl(AT)wolfram.com), Jul 28 2007