A163828 Number of straight line segments in all letters of the capitalized English name of n.

9, 7, 6, 15, 5, 10, 3, 13, 12, 11, 9, 19, 18, 21, 18, 20, 16, 26, 23, 24, 18, 25, 24, 33, 23, 28, 21, 31, 30, 29, 13, 20, 19, 28, 18, 23, 16, 26, 25, 24, 10, 17, 16, 25, 15, 20, 13, 23, 22, 21, 12, 19, 18, 27, 17, 22, 15, 25, 24, 23, 8, 15, 14, 23, 13, 18, 11, 21, 20, 19, 18

Offset

0,1

Comments

Number of straight line segments (chisel strokes) in the capitalized English name of n (excluding spaces and hyphens), counting smooth curves as zero strokes.

The 15 letters which are entirely strokes (no curves): A(3), E(4), F(3), H(3), I(1), K(3), L(2), M(4), N(3), T(2), V(2), W(4), X(2), Y(3), Z(3).

Those 4 which are entirely curves (and count as zero): C, O, S, U.

Those 7 which mix strokes and curves: B(1), D(1), G(2), J(1), P(1), Q(1), R(2).

a(16)=16 is a fixed point.

The numbers written entirely from stroke-only letters are A163670.

Links

Table of n, a(n) for n=0..70.

Example

a(0) = 9 because ZERO has (letter by letter) 3+4+2+0 = 9 straight line segments (chisel strokes).
a(1) = 7 because ONE has 0+3+4 = 7 strokes.
a(20) = 18 because TWENTY (all strokes) has 2+4+4+3+2+3 = 18 strokes.

Maple

names :=["zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine",
"ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen",
"nineteen", "twenty", "twentyone", "twentytwo", "twentythree", "twentyfour", "twentyfive", "twentysix",
"twentyseven", "twentyeight", "twentynine", "thirty", "thirtyone", "thirtytwo", "thirtythree",
"thirtyfour", "thirtyfive", "thirtysix", "thirtyseven", "thirtyeight", "thirtynine", "forty",
"fortyone", "fortytwo", "fortythree", "fortyfour", "fortyfive", "fortysix", "fortyseven",
"fortyeight", "fortynine", "fifty", "fiftyone", "fiftytwo", "fiftythree", "fiftyfour",
"fiftyfive", "fiftysix", "fiftyseven", "fiftyeight", "fiftynine", "sixty", "sixtyone",
"sixtytwo", "sixtythree", "sixtyfour", "sixtyfive", "sixtysix", "sixtyseven", "sixtyeight",
"sixtynine", "seventy", "seventyone", "seventytwo", "seventythree", "seventyfour",
"seventyfive", "seventysix", "seventyseven", "seventyeight", "seventynine", "eighty",
"eightyone", "eightytwo", "eightythree", "eightyfour", "eightyfive", "eightysix",
"eightyseven", "eightyeight", "eightynine", "ninety", "ninetyone", "ninetytwo",
"ninetythree", "ninetyfour", "ninetyfive", "ninetysix", "ninetyseven", "ninetyeight",
"ninetynine", "onehundred"] :
cstrok := [ 3, 1, 0, 1, 4, 3, 2, 3, 1, 1, 3, 2, 4, 3, 0, 1, 1, 2, 0, 2, 0, 2, 4, 2, 3, 3 ] ;
A163828 := proc(n) global names, cstrok; a := 0 ; for c in StringTools[Explode]( names[n+1]) do a := a+ cstrok[StringTools[Ord](c)-96] ; od: a ; end:
seq(A163828(n), n=0..70) ; # R. J. Mathar, Sep 29 2009

Crossrefs

Cf. A002963, A005589, A163670.

Sequence in context: A375887 A154678 A021915 * A247600 A281197 A373507

Adjacent sequences: A163825 A163826 A163827 * A163829 A163830 A163831

Keyword

easy,nonn,word

Author

Jonathan Vos Post, Aug 05 2009

Extensions

a(36) changed to 16 by R. J. Mathar, Sep 29 2009

Status

approved