A053232 Numbers for which values not equal to 2 occur in the expansion of A053230.
1, 2, 23, 31, 32, 38, 39, 54, 59, 67, 68, 74, 75, 84, 98, 99, 114, 128, 129, 138, 149, 157, 158, 172, 177, 197, 198, 201, 202, 228, 229, 232, 240, 241, 247, 248, 257, 262, 263, 277, 278, 281, 283, 284, 293, 307, 308, 311, 313, 314, 332, 333, 339, 340, 349, 350
Offset: 1
Keywords
Programs
-
Maple
with(numtheory): f := [seq( `if`((sigma(i+1) > sigma(i)),i,print( )), i=1..5000)]; seq( `if`(f[i+1] - f[i] <> 2,i,print( )), i=1..100);