cp's OEIS Frontend

A163828 Number of straight line segments in all letters of the capitalized English name of n.

%I A163828 #7 May 04 2019 00:35:03
%S A163828 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,
%T A163828 28,21,31,30,29,13,20,19,28,18,23,16,26,25,24,10,17,16,25,15,20,13,23,
%U A163828 22,21,12,19,18,27,17,22,15,25,24,23,8,15,14,23,13,18,11,21,20,19,18
%N A163828 Number of straight line segments in all letters of the capitalized English name of n.
%C A163828 Number of straight line segments (chisel strokes) in the capitalized English name of n (excluding spaces and hyphens), counting smooth curves as zero strokes.
%C A163828 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).
%C A163828 Those 4 which are entirely curves (and count as zero): C, O, S, U.
%C A163828 Those 7 which mix strokes and curves: B(1), D(1), G(2), J(1), P(1), Q(1), R(2).
%C A163828 a(16)=16 is a fixed point.
%C A163828 The numbers written entirely from stroke-only letters are A163670.
%e A163828 a(0) = 9 because ZERO has (letter by letter) 3+4+2+0 = 9 straight line segments (chisel strokes).
%e A163828 a(1) = 7 because ONE has 0+3+4 = 7 strokes.
%e A163828 a(20) = 18 because TWENTY (all strokes) has 2+4+4+3+2+3 = 18 strokes.
%p A163828 names :=["zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine",
%p A163828 "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen",
%p A163828 "nineteen", "twenty", "twentyone", "twentytwo", "twentythree", "twentyfour", "twentyfive", "twentysix",
%p A163828 "twentyseven", "twentyeight", "twentynine", "thirty", "thirtyone", "thirtytwo", "thirtythree",
%p A163828 "thirtyfour", "thirtyfive", "thirtysix", "thirtyseven", "thirtyeight", "thirtynine", "forty",
%p A163828 "fortyone", "fortytwo", "fortythree", "fortyfour", "fortyfive", "fortysix", "fortyseven",
%p A163828 "fortyeight", "fortynine", "fifty", "fiftyone", "fiftytwo", "fiftythree", "fiftyfour",
%p A163828 "fiftyfive", "fiftysix", "fiftyseven", "fiftyeight", "fiftynine", "sixty", "sixtyone",
%p A163828 "sixtytwo", "sixtythree", "sixtyfour", "sixtyfive", "sixtysix", "sixtyseven", "sixtyeight",
%p A163828 "sixtynine", "seventy", "seventyone", "seventytwo", "seventythree", "seventyfour",
%p A163828 "seventyfive", "seventysix", "seventyseven", "seventyeight", "seventynine", "eighty",
%p A163828 "eightyone", "eightytwo", "eightythree", "eightyfour", "eightyfive", "eightysix",
%p A163828 "eightyseven", "eightyeight", "eightynine", "ninety", "ninetyone", "ninetytwo",
%p A163828 "ninetythree", "ninetyfour", "ninetyfive", "ninetysix", "ninetyseven", "ninetyeight",
%p A163828 "ninetynine", "onehundred"] :
%p A163828 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 A163828 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:
%p A163828 seq(A163828(n),n=0..70) ; # _R. J. Mathar_, Sep 29 2009
%Y A163828 Cf. A002963, A005589, A163670.
%K A163828 easy,nonn,word
%O A163828 0,1
%A A163828 _Jonathan Vos Post_, Aug 05 2009
%E A163828 a(36) changed to 16 by _R. J. Mathar_, Sep 29 2009