login
Numbers n for which values not equal to 2 occur in the expansion of A053230.
7

%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