login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

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: A329088 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

a(36) changed to 16 by 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 December 5 12:24 EST 2021. Contains 349557 sequences. (Running on oeis4.)