OFFSET
1,1
MATHEMATICA
With[{c={1, 4}}, Select[Range[3000], MemberQ[Partition[IntegerDigits[ #, 9], 2, 1], c]&& !MemberQ[Partition[IntegerDigits[#-1, 9], 2, 1], c]&]] (* Harvey P. Dale, Oct 31 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved