A212495 Numbers all of whose base 11 digits are even.
0, 2, 4, 6, 8, 10, 22, 24, 26, 28, 30, 32, 44, 46, 48, 50, 52, 54, 66, 68, 70, 72, 74, 76, 88, 90, 92, 94, 96, 98, 110, 112, 114, 116, 118, 120, 242, 244, 246, 248, 250, 252, 264, 266, 268, 270, 272, 274, 286, 288, 290, 292, 294, 296, 308, 310, 312, 314, 316
Offset: 1
Examples
30 is represented by "28" in base 11. Both digits in this representation are even, thus 30 belongs to the sequence.
Programs
-
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 *)
-
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, ", ")))
Comments