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

Author

Jonathan Vos Post, Aug 05 2009

Keywords

• easy
• nonn
• word

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.

Examples

			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.
		

Crossrefs

Cf. A002963, A005589, A163670.

Programs

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

Extensions

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