This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A319609 #17 Sep 08 2022 08:46:23 %S A319609 0,1,2,3,5,170,4095,4097,8194,12291,20485,21845,696490,699050, %T A319609 16777215,16777217,16781313,16785409,16789505,33554434,33558530, %U A319609 33562626,33566722,50331651,50335747,50339843,50343939,83886085,83906565,89458005,89478485 %N A319609 Numbers in base 10 that are palindromic in bases 4, 8 and 16. %e A319609 170 = 2222_4 = 252_8 = AA_16. Hence 170 is in the sequence. %t A319609 palQ[n_, b_] := PalindromeQ[IntegerDigits[n, b]]; %t A319609 Reap[Do[If[palQ[n, 4] && palQ[n, 8] && palQ[n, 16], Print[n]; Sow[n]], {n, 0, 10^6}]][[2, 1]] (* _Jean-François Alcover_, Sep 25 2018 *) %o A319609 (Sage) [n for n in (0..100000) if Word(n.digits(4)).is_palindrome() and Word(n.digits(8)).is_palindrome() and Word(n.digits(16)).is_palindrome()] %o A319609 (Magma) [n: n in [0..2*10^7] | Intseq(n, 4) eq Reverse(Intseq(n, 4)) and Intseq(n, 8) eq Reverse(Intseq(n, 8)) and Intseq(n, 16) eq Reverse(Intseq(n, 16))]; // _Vincenzo Librandi_, Sep 24 2018 %Y A319609 Intersection of A014192, A029803 and A029730. %K A319609 nonn,base %O A319609 1,3 %A A319609 _Jeremias M. Gomes_, Sep 24 2018