%I A056749
%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.
%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} ]
%Y A056749 Sequence in context: A094319 A003166 A034317 this_sequence A134776 A062595 
               A128147
%Y A056749 Adjacent sequences: A056746 A056747 A056748 this_sequence A056750 A056751 
               A056752
%K A056749 nonn,base
%O A056749 2,1
%A A056749 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 15 2000