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 A053234 #12 Oct 27 2023 22:00:45 %S A053234 1,2,31,32,38,39,67,68,74,75,98,99,128,129,157,197,198,201,228,229, %T A053234 240,241,247,248,262,277,278,283,284,307,308,313,314,332,333,339,340, %U A053234 349,369,370,382,383,386,400,401,413,414,430,431,459,460,475,489,490,502 %N A053234 Numbers n such that A053230(n) = 1. %H A053234 Reinhard Zumkeller, <a href="/A053234/b053234.txt">Table of n, a(n) for n = 1..10000</a> %p A053234 with(numtheory): f := [seq( `if`((sigma(i+1) > sigma(i)),i,print( )), i=1..5000)]; %p A053234 seq( `if`(f[i+1] - f[i] = 2,i,print( )), i=1..1000); %o A053234 (Haskell) %o A053234 import Data.List (elemIndices) %o A053234 a053234 n = a053234_list !! (n-1) %o A053234 a053234_list = map (+ 1) $ elemIndices 1 a053230_list %o A053234 -- _Reinhard Zumkeller_, May 07 2012 %Y A053234 Cf. A000203, A053224, A053230, A053231, A053232, A053233, A053235, A053236, A053237. %K A053234 nonn %O A053234 1,2 %A A053234 _Asher Auel_, Jan 10 2000