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