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