OFFSET
1,1
MATHEMATICA
Select[Range[4000], MemberQ[Partition[IntegerDigits[#], 2, 1], {8, 4}]&&!MemberQ[Partition[IntegerDigits[#-1], 2, 1], {8, 4}]&] (* From Harvey P. Dale, Mar 14 2011 *)
Select[Range[4000], !StringFreeQ[ToString[#], "84"]&&StringFreeQ[ToString[#-1], "84"]&]
(* Zak Seidov Mar 14 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Clark Kimberling (ck6(AT)evansville.edu)
STATUS
reviewed