# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a097928 Showing 1-1 of 1 %I A097928 #25 Oct 31 2014 15:03:42 %S A097928 0,1,2,10,130,11950,175850,749470,1181729,11435450,916821671, %T A097928 956613659,1136307905,46746179770,77887660577,635913760790, %U A097928 53903615484947,55988454554339,534479689454189,1956592840355065 %N A097928 Numbers in base 10 that are palindromic in bases 3 and 4. %C A097928 Intersection of A014190 and A014192. - _Michel Marcus_, Oct 09 2014 %H A097928 Ray Chandler, Table of n, a(n) for n = 1..27 (terms < 10^18) %H A097928 Cino Hilliard, util.gp PARI Functions not in the PARI Library. [broken link] %H A097928 Cino Hilliard, Pari Utilities (cached) %e A097928 175850 base 10 is 22221012222 base 3 and 175850 base 10 is 222323222 base 4. %t A097928 Do[ p3 = IntegerDigits[n, 3]; If[ FromDigits[ Reverse[ p3]] == FromDigits[p3], p4 = IntegerDigits[n, 4]; If[ FromDigits[ Reverse[p4]] == FromDigits[p4], Print[n]]], {n, 2*10^7}] (* _Robert G. Wilson v_, Sep 07 2004 *) %o A097928 (PARI) palbase(n,b1,b2) = { for(x=1,n, if(ispal(base(10,b1,x))& ispal(base(10,b2,x)),print1(x",")) ) } \\Requires reading the util.gp file in the link into the gp session. Place in the \.gprc file to automate. %Y A097928 Cf. A014190 (base 3), A014192 (base 4). %K A097928 base,nonn %O A097928 1,3 %A A097928 _Cino Hilliard_, Sep 04 2004 %E A097928 More terms from _Robert G. Wilson v_, Sep 07 2004 %E A097928 a(11)-a(21) from _Donovan Johnson_, Apr 23 2010 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE