OFFSET
1,2
COMMENTS
EXAMPLE
30 is represented by "28" in base 11. Both digits in this representation are even, thus 30 belongs to the sequence.
MATHEMATICA
Select[Range[0, 350], AllTrue[IntegerDigits[#, 11], EvenQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 03 2018 *)
PROG
(PARI) {is(c) = local(d); while(c != 0, d=c%11; c=(c-d)/11; if(d%2==1, return(0))) ; 1}
for(i=0, 317, if(is(i), print1(i, ", ")))
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Douglas Latimer, May 18 2012
STATUS
approved