%I A097931
%S A097931 1,2,3,4,5,92,135,178,185,5854,6148,7703,186621,204856,206620,213970,
%T A097931 269957,271721,279071,4252232,160258808
%N A097931 Numbers in base 10 that are palindromic in bases 6 and 7.
%H A097931 Cino Hilliard, <a href="http://groups.msn.com/BC2LCC/page.msnw?fc_p=%2FPari%20GP%20scripts&fc_a=0">
               util.gp PARI Functions not in the PARI Librery</a>.
%e A097931 269957 base 10 is 5441445 base 6
%e A097931 269957 base 10 is 2203022 base 7
%t A097931 Do[ p6 = IntegerDigits[n, 6]; If[ FromDigits[ Reverse[ p6]] == FromDigits[p6], 
               p7 = IntegerDigits[n, 7]; If[ FromDigits[ Reverse[p7]] == FromDigits[p7], 
               Print[n]]], {n, 10^9}] (from Robert G. Wilson v Sep 07 2004)
%o A097931 (PARI) \Requires reading the util.gp file in the link into the gp session. 
               Place in the \.gprc file to automate. palbase(n,b1,b2) = { for(x=1,
               n, if(ispal(base(10,b1,x))& ispal(base(10,b2,x)),print1(x",")) ) 
               }
%Y A097931 Sequence in context: A075832 A037434 A033170 this_sequence A162225 A010348 
               A140432
%Y A097931 Adjacent sequences: A097928 A097929 A097930 this_sequence A097932 A097933 
               A097934
%K A097931 base,nonn,more
%O A097931 1,2
%A A097931 Cino Hilliard (hillcino368(AT)gmail.com), Sep 04 2004
%E A097931 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 07 2004