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 A056749 #6 Nov 16 2017 14:23:13
%S A056749 3,6643,5,31,7,85,9,127,33,255,65,313,15,693,17,341,325,381,21,1241,
%T A056749 771,645,325,951,27,5461,1317,1161,31,1241,33,1453,455,5709,3999,2925,
%U A056749 195,4097,1025,7671,129,2409,45,4097,4095,3855,1421,5049,51,8673,3069
%N A056749 Smallest palindrome greater than n in bases 2 and n.
%H A056749 Michel Marcus, <a href="/A056749/b056749.txt">Table of n, a(n) for n = 2..1000</a>
%t A056749 Do[ k = n +1; While[ RealDigits[ k, n ][ [ 1 ] ] != Reverse[ RealDigits[ k, n ][ [ 1 ] ] ] || RealDigits[ k, 2 ][ [ 1 ] ] != Reverse[ RealDigits[ k, 2 ][ [ 1 ] ] ], k++ ]; Print[ k ], {n, 2, 60} ]
%o A056749 (PARI) isok2(j, n) = my(d=digits(j,n), b=binary(j)); (Vecrev(d)==d) && (Vecrev(b)==b);
%o A056749 a(n) = {my(j = n); while(! isok2(j, n), j++); j;} \\ _Michel Marcus_, Nov 16 2017
%Y A056749 Cf. A048268 (bases n and n+1).
%K A056749 nonn,base
%O A056749 2,1
%A A056749 _Robert G. Wilson v_, Aug 15 2000