|
%I #32 Mar 02 2019 03:54:59
%S 0,1,2,3,4,67,98,104,651,2293,3074,26691,27741,704396,723296,755846,
%T 883407,48616624,295979506,297379006,402327541,198522549056,
%U 204185363456,240971251611,246467321391,303520083621,330347455102
%N Numbers in base 10 that are palindromic in bases 5 and 6.
%C Intersection of A029952 and A029953. - _Michel Marcus_, Oct 09 2014
%H 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 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 Library</a>. [broken link]
%H Cino Hilliard, <a href="/A097928/a097928.txt">Pari Utilities (cached)</a>
%e 27741_10 = 1341431_5;
%e 27741_10 = 332233_6.
%t 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 (PARI) /* Requires reading the util.gp file in the link into the gp session. */
%o palbase(n,b1,b2) = { for(x=1,n, if(ispal(base(10,b1,x))& ispal(base(10,b2,x)),print1(x",")) ) }
%Y Cf. A029952 (base 5), A029953 (base 6).
%K base,nonn
%O 1,3
%A _Cino Hilliard_, Sep 04 2004
%E More terms from _Robert G. Wilson v_, Sep 07 2004
%E a(19)-a(27) from _Donovan Johnson_, Apr 23 2010
%E a(28) from _Robert G. Wilson v_, Jul 17 2015
|
