OFFSET
1,1
MATHEMATICA
jxQ[n_]:=MemberQ[Sort/@Partition[IntegerDigits[n, 4], 2, 1], {0, 2}]; Select[ Range[450], jxQ[#]&&!jxQ[#-1]&] (* Harvey P. Dale, Feb 23 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved