OFFSET
1,1
MATHEMATICA
okQ[n_]:=Module[{dcn6=DigitCount[n, 6]}, dcn6[[1]]==dcn6[[4]]>0]
Select[Range[500], okQ] (* Harvey P. Dale, Feb 18 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved