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 A053232 #12 Jun 05 2025 19:38:43 %S A053232 1,2,23,31,32,38,39,54,59,67,68,74,75,84,98,99,114,128,129,138,149, %T A053232 157,158,172,177,197,198,201,202,228,229,232,240,241,247,248,257,262, %U A053232 263,277,278,281,283,284,293,307,308,311,313,314,332,333,339,340,349,350 %N A053232 Numbers for which values not equal to 2 occur in the expansion of A053230. %p A053232 with(numtheory): f := [seq( `if`((sigma(i+1) > sigma(i)),i,print( )), i=1..5000)]; %p A053232 seq( `if`(f[i+1] - f[i] <> 2,i,print( )), i=1..100); %Y A053232 Cf. A000203, A053224, A053230, A053231, A053233, A053234, A053235, A053236, A053237. %K A053232 nonn %O A053232 1,2 %A A053232 _Asher Auel_, Jan 10 2000