OFFSET
1,1
MATHEMATICA
n05Q[n_]:=MemberQ[Sort/@Partition[IntegerDigits[n, 8], 2, 1], {0, 5}]; Select[ Range[1500], n05Q[#]&&!n05Q[#+1]&] (* Harvey P. Dale, May 07 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved