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, FromDigits@ Take[d, 2] == 19], First@ d == 9]]@ IntegerDigits@ # &] (* Michael De Vlieger, Feb 13 2017 *)
CROSSREFS
KEYWORD
word,nonn
AUTHOR
EXTENSIONS
Edited by John Cerkan, Feb 13 2017
STATUS
approved