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 A097025 #14 Mar 15 2015 18:11:55
%S A097025 1,81,400,32400,195938,224450,1705636,3648100,13645088,15870978,
%T A097025 18180450,29184800,138156516,295496100,1055340196,1105252128,
%U A097025 1476326929,2263475776,2323432804,2363968800,2592846400,2661528100,2686005218,2917410498,3564550178
%N A097025 Numbers n such that both sigma(n) and sigma(sigma(n)) are odd numbers.
%C A097025 Only members of A028982 are candidates. - _Robert G. Wilson v_, Aug 27 2004
%C A097025 Question: iterating sigma()=A000203, how many iterates can be odd numbers?
%H A097025 Donovan Johnson, <a href="/A097025/b097025.txt">Table of n, a(n) for n = 1..500</a>
%e A097025 n = 1910^2, sigma(n) = 2821^2, sigma(sigma(n)) = 10357983.
%t A097025 t = Sort[ Flatten[ Table[{n^2, 2n^2}, {n, 36650}]]]; a = {}; Do[ If[ OddQ[ DivisorSigma[1, DivisorSigma[1, t[[n]] ]]], AppendTo[a, t[[n]] ]], {n, 2*10^6}]; a (* _Robert G. Wilson v_, Aug 27 2004 *)
%Y A097025 Cf. A008847, A000203, A097024, A028982.
%K A097025 nonn
%O A097025 1,2
%A A097025 _Labos Elemer_, Aug 24 2004
%E A097025 Edited and extended by _Robert G. Wilson v_, Aug 27 2004