|
%I #10 May 04 2019 03:41:29
%S 11,8,7,16,8,10,4,14,13,11,9,19,18,22,21,20,17,27,24,24,18,26,25,34,
%T 26,28,22,32,31,29,14,22,21,30,22,24,18,28,27,25,12,20,19,28,20,22,16,
%U 26,25,23,12,20,19,28,20,22,16,26,25,23,9,17,16,25,17,19,13,23,22,20,19
%N Number of straight plus curved segments in the capitalized English name of n.
%C Number of straight plus curved segments in all letters of the name of n, excluding hyphens.
%F a(n) = A163828(n) + (number of curves in the letters of the English name of n as in A164058).
%F a(n) = A163828(n) for n in A163670.
%e 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.
%e 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.
%p names :=["zero", "one", "two", "three", "four", "five", "six", "seven", "eight",
%p "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen",
%p "seventeen", "eighteen", "nineteen", "twenty", "twentyone", "twentytwo", "twentythree",
%p "twentyfour", "twentyfive", "twentysix", "twentyseven", "twentyeight", "twentynine", "thirty",
%p "thirtyone", "thirtytwo", "thirtythree", "thirtyfour", "thirtyfive", "thirtysix",
%p "thirtyseven", "thirtyeight", "thirtynine", "forty", "fortyone", "fortytwo",
%p "fortythree", "fortyfour", "fortyfive", "fortysix", "fortyseven", "fortyeight",
%p "fortynine", "fifty", "fiftyone", "fiftytwo", "fiftythree", "fiftyfour",
%p "fiftyfive", "fiftysix", "fiftyseven", "fiftyeight", "fiftynine", "sixty",
%p "sixtyone", "sixtytwo", "sixtythree", "sixtyfour", "sixtyfive", "sixtysix",
%p "sixtyseven", "sixtyeight", "sixtynine", "seventy", "seventyone", "seventytwo",
%p "seventythree", "seventyfour", "seventyfive", "seventysix", "seventyseven",
%p "seventyeight", "seventynine", "eighty", "eightyone", "eightytwo", "eightythree",
%p "eightyfour", "eightyfive", "eightysix", "eightyseven", "eightyeight", "eightynine",
%p "ninety", "ninetyone", "ninetytwo", "ninetythree", "ninetyfour", "ninetyfive",
%p "ninetysix", "ninetyseven", "ninetyeight", "ninetynine", "onehundred"] :
%p 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 ] ;
%p 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] ;
%p 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:
%p seq(A164059(n),n=0..70) ; # _R. J. Mathar_, Sep 29 2009
%Y Cf. A002963, A005589, A163670, A163828, A164058.
%K easy,nonn,word
%O 0,1
%A _Jonathan Vos Post_, Aug 08 2009
%E More terms from _R. J. Mathar_, Sep 29 2009
|
