|
%I #27 Aug 12 2023 00:35:22
%S 0,1,3,5,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,
%T 28,29,31,33,35,37,38,39,41,43,45,47,48,49,51,53,55,57,58,59,61,63,65,
%U 67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90
%N Numbers whose American English name contains the letter 'e'.
%C A085513(a(n)) > 0. - _Reinhard Zumkeller_, Jan 23 2015
%H Reinhard Zumkeller, <a href="/A008520/b008520.txt">Table of n, a(n) for n = 1..10000</a>
%H Roel and Bas van Dijk, <a href="http://hackage.haskell.org/package/numerals">Numerals package</a>, Hackage (Haskell packages)
%H <a href="/index/Lc#letters">Index entries for sequences related to number of letters in n</a>
%t A008520Q[n_]:=StringContainsQ[IntegerName[n,"Words"],"e"];Select[Range[0,200],A008520Q] (* _Paolo Xausa_, Aug 11 2023 *)
%o (Haskell)
%o import Data.Maybe (fromJust)
%o import Data.Text (Text); import qualified Data.Text as T (any)
%o import Text.Numeral.Grammar.Reified (defaultInflection)
%o import qualified Text.Numeral.Language.EN as EN -- see link
%o a008520 n = a008520_list !! (n-1)
%o a008520_list = filter (T.any (== 'e') . numeral) [0..] where
%o numeral :: Integer -> Text
%o numeral = fromJust . EN.gb_cardinal defaultInflection
%o -- _Reinhard Zumkeller_, Jan 23 2015
%Y Cf. A006933 (complement), A085513.
%Y Cf. A008519 (o), A008522 (t), A008536 (n), A008538 (s), A008540 (f), A008553 (y).
%K nonn,word
%O 1,3
%A _N. J. A. Sloane_
%E Name edited by _Michael De Vlieger_, Aug 11 2023
|
