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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A164059 Number of straight plus curved segments in the capitalized English name of n. 1
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 (list; graph; refs; listen; history; text; internal format)
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

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 26 18:36 EDT 2019. Contains 321511 sequences. (Running on oeis4.)