|
%I
%S 2,3,5,17,29,59,257,373,409,461,509,787,839,887,907,991,4289,4561,
%T 5189,5669,5861,6133,6217,6553,6761,7309,7517,7789,7853,12899,13171,
%U 13591,14327,14347,14411,14683,14747,14891,15083,15227,15439,15647
%N Palindromic primes in base 4.
%H P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a>
%t Do[s = RealDigits[n, 4][[1]]; If[PrimeQ[n], If[FromDigits[s] == FromDigits[Reverse[s]], Print[n]]], {n, 1, 1600}]
%K nonn,base
%O 1,1
%A _Patrick De Geest_
|
