OFFSET
1,1
MATHEMATICA
s53Q[n_]:=MemberQ[Partition[IntegerDigits[n, 8], 2, 1], {5, 3}] && !MemberQ[ Partition[IntegerDigits[n+1, 8], 2, 1], {5, 3}]; Select[Range[2500], s53Q] (* Harvey P. Dale, Nov 26 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved