|
%I #19 Nov 12 2018 01:54:27
%S 77777,101777,102777,103777,104777,105777,106777,107177,107277,107377,
%T 107477,107577,107677,107727,107737,107747,107757,107767,107771,
%U 107772,107773,107774,107775,107776,107778,107779,107787,107797,107877,107977
%N Haiku numbers.
%C These numbers are haiku when written in English (including the 'and' between the hundreds and tens or units). A haiku is a three-line poem with 5 syllables in the first line, seven in the second and five in the third.
%C Apparently the actual criterion is that there are 17 syllables, as words can be broken across lines: e.g.,
%C One hundred and sev-
%C en thousand one hundred and
%C seventy-seven. - _Robert Israel_, Nov 11 2018
%H Robert Israel, <a href="/A321235/b321235.txt">Table of n, a(n) for n = 1..10000</a>
%e 77777 is a haiku:
%e Seventy-seven
%e thousand, seven hundred and
%e seventy-seven.
%p filter:= proc(n) uses StringTools; local t;
%p t:= convert(n,english,'And');
%p t:= subs("ninety"="eighty",Split(t,"- "));
%p # Maple thinks "ninety" has 3 syllables
%p convert(map(SyllableLength,t),`+`)=17
%p end proc:
%p select(filter, [$1..110000]); # _Robert Israel_, Nov 11 2018
%K nonn,word,base,fini
%O 1,1
%A _Matthew Scroggs_, Nov 01 2018
|
