A008538 Numbers whose American English name contains the letter 's'.
6, 7, 16, 17, 26, 27, 36, 37, 46, 47, 56, 57, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 86, 87, 96, 97, 106, 107, 116, 117, 126, 127, 136, 137, 146, 147, 156, 157, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173
Offset: 1
Links
- Paolo Xausa, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
A008538Q[n_]:=StringContainsQ[IntegerName[n,"Words"],"s"];Select[Range[0,200],A008538Q] (* Paolo Xausa, Aug 12 2023 *)
Extensions
Name edited by Paolo Xausa, Aug 12 2023