A000873 Numbers beginning with letter 'e' in English.
8, 11, 18, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 800, 801, 802, 803, 804, 805, 806, 807, 808, 809, 810, 811, 812, 813, 814, 815, 816, 817, 818, 819, 820, 821, 822, 823, 824, 825, 826, 827, 828, 829
Offset: 1
Links
- John Cerkan, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
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 *)
Extensions
Corrected by Sam Alexander (pink2001x(AT)hotmail.com)
Edited by John Cerkan, Feb 13 2017