cp's OEIS Frontend

A097929 Numbers in base 10 that are palindromic in bases 4 and 5.

%I A097929 #27 Oct 31 2014 15:14:36
%S A097929 0,1,2,3,46,9222,76449,193662,2347506,2593206,17099841,17402241,
%T A097929 25651017,32317933,16516113567,16619231967,155784877126,2806999337418,
%U A097929 3101308506654,37004798195346,47470618709562,48517516968462
%N A097929 Numbers in base 10 that are palindromic in bases 4 and 5.
%C A097929 Intersection of A014192 and A029952. - _Michel Marcus_, Oct 09 2014
%H A097929 Ray Chandler, <a href="/A097929/b097929.txt">Table of n, a(n) for n = 1..26</a> (terms < 10^18)
%H A097929 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 A097929 Cino Hilliard, <a href="/A097928/a097928.txt">Pari Utilities (cached)</a>
%e A097929 9222 base 10 is 2100012 base 4 and 9222 base 10 is 243342 base 5.
%t A097929 Do[ p4 = IntegerDigits[n, 4]; If[ FromDigits[ Reverse[ p4]] == FromDigits[p4], p5 = IntegerDigits[n, 5]; If[ FromDigits[ Reverse[p5]] == FromDigits[p5], Print[n]]], {n, 2*10^7}] (* _Robert G. Wilson v_, Sep 07 2004 *)
%o A097929 (PARI) /* Requires reading the util.gp file in the link into the gp session. */
%o A097929 palbase(n,b1,b2) = { for(x=1,n, if(ispal(base(10,b1,x))& ispal(base(10,b2,x)),print1(x",")) ) }
%Y A097929 Cf. A014192 (base 4), A029952 (base 5).
%K A097929 base,nonn
%O A097929 1,3
%A A097929 _Cino Hilliard_, Sep 04 2004
%E A097929 More terms from _Robert G. Wilson v_, Sep 07 2004
%E A097929 a(15)-a(22) from _Donovan Johnson_, Apr 23 2010