%I #17 Jun 30 2020 06:47:58
%S 5,10,13,17,20,24,28,31,34,38,43,47,52,56,61,65,70,73,78,83,87,90,93,
%T 96,100,105,110,115,120,123,128,132,136,140,143,148,153,157,160,164,
%U 169,172,175,179,184,188,192,197,202,206,209,213,217,222,225,229,233
%N Cumulative number of letters in decimal expansion of Pi being spoken in English as "Three Point One Four One...".
%F a(n) = 5 + SUM[i=1..n-1] A005589(A000796(i)).
%F a(n) = 5 + SUM[i=1..n-1] A107488(i).
%e a(1) = 5 because "Three" has five letters;
%e a(2) = 10 because "Three Point" has ten letters;
%e a(3) = 13 because "Three Point One" has thirteen letters.
%p A242898 := proc(n)
%p 5+add(A052384(i),i=1..n-1) ;
%p end proc:
%p seq(A242898(n),n=1..57) ; # _R. J. Mathar_, Jun 30 2020
%Y Cf. A000796, A005589, A052384, A107488.
%K nonn,word,easy
%O 1,1
%A _Jonathan Vos Post_, May 25 2014
|