cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A037199 Number of consonants in n (in German).

Original entry on oeis.org

3, 2, 2, 2, 2, 3, 4, 3, 3, 2, 3, 2, 4, 5, 5, 6, 6, 5, 6, 5, 5, 8, 9, 9, 9, 10, 11, 10, 10, 9, 4, 7, 8, 8, 8, 9, 10, 9, 9, 8, 4, 7, 8, 8, 8, 9, 10, 9, 9, 8, 5, 8, 9, 9, 9, 10, 11, 10, 10, 9, 5, 8, 9, 9, 9, 10, 11, 10, 10, 9, 4, 7, 8, 8, 8, 9, 10, 9, 9, 8, 5, 8
Offset: 0

Views

Author

N. J. A. Sloane

Keywords

Examples

			a(16) = 6 "sechzehn", not "sechszehn". - _Sean A. Irvine_, Dec 17 2020

Crossrefs

Cf. A037193 (in French), A037195 (in American English).
Cf. A037200 (number of vowels).

Extensions

More terms from Sascha Kurz, Mar 22 2002
Various terms a(16) and above corrected by Sean A. Irvine, Dec 17 2020

A192295 Number of distinct consonants in the English name of n.

Original entry on oeis.org

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, 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, 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
Offset: 0

Views

Author

Kausthub Gudipati, Jun 27 2011

Keywords

Comments

First differs from A037195 at the ninth term.
The letter "y" is here considered a consonant regardless of its usage in the word(s).
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

Examples

			a(13) = 4 because the distinct consonants present in THIRTEEN are T, H, R and N.
a(9) = 1 because N is the only consonant present in NINE.

Links

Crossrefs

Cf. A037195, A037196 (number of vowels in n), A058179 (numbers whose English names include all five vowels at least once).

Programs

  • Mathematica
    Array[Length@ Union@ Select[Characters@ IntegerName@ #, And[LetterQ@ #, FreeQ[{97, 101, 105, 111, 117}, ToCharacterCode[#][[1]]]] &] &, 105, 0] (* Michael De Vlieger, Feb 15 2020 *)

Extensions

More terms from Michael De Vlieger, Feb 15 2020
Showing 1-2 of 2 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.