|
%I #19 Feb 16 2020 01:00:28
%S 2,1,2,3,2,2,2,3,3,1,2,3,4,4,4,3,4,4,4,2,4,4,4,6,6,6,6,6,6,4,4,5,5,4,
%T 5,6,6,7,5,5,4,5,5,5,4,5,6,7,6,5,3,4,4,5,4,4,5,6,5,4,4,5,5,6,6,6,4,6,
%U 6,5,5,5,6,7,7,6,6,5,7,5,4,5,5,5,6,6,6,7,4,5,3,3,4,5,5,5,5,5,5,3,4,4,6,5,5
%N Number of distinct consonants in the English name of n.
%C First differs from A037195 at the ninth term.
%C The letter "y" is here considered a consonant regardless of its usage in the word(s).
%C The maximum number of distinct vowels that can occur in the English name of n is 5, which occurs for n in A058179. - _Jonathan Vos Post_, Jul 12 2011
%H Michael De Vlieger, <a href="/A192295/b192295.txt">Table of n, a(n) for n = 0..10000</a>
%e a(13) = 4 because the distinct consonants present in THIRTEEN are T, H, R and N.
%e a(9) = 1 because N is the only consonant present in NINE.
%t Array[Length@ Union@ Select[Characters@ IntegerName@ #, And[LetterQ@ #, FreeQ[{97, 101, 105, 111, 117}, ToCharacterCode[#][[1]]]] &] &, 105, 0] (* _Michael De Vlieger_, Feb 15 2020 *)
%Y Cf. A037195, A037196 (number of vowels in n), A058179 (numbers whose English names include all five vowels at least once).
%K dumb,easy,nonn,word
%O 0,1
%A _Kausthub Gudipati_, Jun 27 2011
%E More terms from _Michael De Vlieger_, Feb 15 2020
|
