A164059 Number of straight plus curved segments in the capitalized English name of n.

11, 8, 7, 16, 8, 10, 4, 14, 13, 11, 9, 19, 18, 22, 21, 20, 17, 27, 24, 24, 18, 26, 25, 34, 26, 28, 22, 32, 31, 29, 14, 22, 21, 30, 22, 24, 18, 28, 27, 25, 12, 20, 19, 28, 20, 22, 16, 26, 25, 23, 12, 20, 19, 28, 20, 22, 16, 26, 25, 23, 9, 17, 16, 25, 17, 19, 13, 23, 22, 20, 19

Offset

0,1

Comments

Number of straight plus curved segments in all letters of the name of n, excluding hyphens.

Links

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

Formula

a(n) = A163828(n) + (number of curves in the letters of the English name of n as in A164058).

a(n) = A163828(n) for n in A163670.

Example

a(0) = 11 because ZERO has (letter by letter) 3+4+2+0 = 9 straight line segments (chisel strokes) and 0+0+1+1 = 2 curves as in A164058, with 9 + 2 = 11.
a(1) = 8 because of 1 curve in O, plus 3 chisel strokes in N and 4 chisel strokes in E, summing to 8 segments (straight or curved) in ONE.

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 ] ;
A164058 := [ 0, 2, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0] ;
A164059 := proc(n) global names, cstrok, A164058; local a, idx ; a := 0 ; for c in StringTools[Explode]( names[n+1]) do idx := StringTools[Ord](c)-96 ; a := a+ cstrok[idx]+A164058[idx] ; od: a ; end:
seq(A164059(n), n=0..70) ; # R. J. Mathar, Sep 29 2009

Crossrefs

Cf. A002963, A005589, A163670, A163828, A164058.

Sequence in context: A085757 A003567 A085688 * A306494 A068974 A244447

Adjacent sequences: A164056 A164057 A164058 * A164060 A164061 A164062

Keyword

easy,nonn,word

Author

Jonathan Vos Post, Aug 08 2009

Extensions

More terms from R. J. Mathar, Sep 29 2009

Status

approved