|
%I #19 Apr 01 2017 00:34:16
%S 8,11,18,80,81,82,83,84,85,86,87,88,89,800,801,802,803,804,805,806,
%T 807,808,809,810,811,812,813,814,815,816,817,818,819,820,821,822,823,
%U 824,825,826,827,828,829
%N Numbers beginning with letter 'e' in English.
%H John Cerkan, <a href="/A000873/b000873.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[10^3], Function[d, Or[And[Mod[IntegerLength@ #, 3] == 2, MemberQ[{11, 18}, FromDigits@ Take[d, 2]]], First@ d == 8]]@ IntegerDigits@ # &] (* _Michael De Vlieger_, Feb 13 2017 *)
%Y Subsequence of A000852.
%Y Cf. A000865, A000867, A000870, A000981, A006092.
%K word,nonn
%O 1,1
%A _N. J. A. Sloane_
%E Corrected by Sam Alexander (pink2001x(AT)hotmail.com)
%E Edited by _John Cerkan_, Feb 13 2017
|
