login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A163828 Number of straight line segments in all letters of the capitalized English name of n. 5
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 (list; graph; refs; listen; history; text; internal format)
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: A214552 A154678 A021915 * A247600 A281197 A199503

Adjacent sequences:  A163825 A163826 A163827 * A163829 A163830 A163831

KEYWORD

easy,nonn,word

AUTHOR

Jonathan Vos Post, Aug 05 2009

EXTENSIONS

Changed a(36) to 16 - R. J. Mathar, Sep 29 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 25 22:28 EDT 2019. Contains 321477 sequences. (Running on oeis4.)