OFFSET
1,1
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
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 *)
CROSSREFS
KEYWORD
word,nonn
AUTHOR
EXTENSIONS
Corrected by Sam Alexander (pink2001x(AT)hotmail.com)
Edited by John Cerkan, Feb 13 2017
STATUS
approved