cp's OEIS Frontend

A097930 Numbers in base 10 that are palindromic in bases 5 and 6.

%I A097930 #32 Mar 02 2019 03:54:59
%S A097930 0,1,2,3,4,67,98,104,651,2293,3074,26691,27741,704396,723296,755846,
%T A097930 883407,48616624,295979506,297379006,402327541,198522549056,
%U A097930 204185363456,240971251611,246467321391,303520083621,330347455102
%N A097930 Numbers in base 10 that are palindromic in bases 5 and 6.
%C A097930 Intersection of A029952 and A029953. - _Michel Marcus_, Oct 09 2014
%H A097930 Giovanni Resta, <a href="/A097930/b097930.txt">Table of n, a(n) for n = 1..43</a> (first 29 terms from Robert G. Wilson v)
%H A097930 Cino Hilliard, <a href="http://groups.msn.com/BC2LCC/page.msnw?fc_p=%2FPari%20GP%20scripts&amp;fc_a=0">util.gp PARI Functions not in the PARI Library</a>. [broken link]
%H A097930 Cino Hilliard, <a href="/A097928/a097928.txt">Pari Utilities (cached)</a>
%e A097930 27741_10 = 1341431_5;
%e A097930 27741_10 = 332233_6.
%t A097930 Do[ p5 = IntegerDigits[n, 5]; If[ FromDigits[ Reverse[ p5]] == FromDigits[p5], p6 = IntegerDigits[n, 6]; If[ FromDigits[ Reverse[p6]] == FromDigits[p6], Print[n]]], {n, 10^8}] (* _Robert G. Wilson v_, Sep 07 2004 *)
%o A097930 (PARI) /* Requires reading the util.gp file in the link into the gp session. */
%o A097930 palbase(n,b1,b2) = { for(x=1,n, if(ispal(base(10,b1,x))& ispal(base(10,b2,x)),print1(x",")) ) }
%Y A097930 Cf. A029952 (base 5), A029953 (base 6).
%K A097930 base,nonn
%O A097930 1,3
%A A097930 _Cino Hilliard_, Sep 04 2004
%E A097930 More terms from _Robert G. Wilson v_, Sep 07 2004
%E A097930 a(19)-a(27) from _Donovan Johnson_, Apr 23 2010
%E A097930 a(28) from _Robert G. Wilson v_, Jul 17 2015