%I #2 Mar 30 2012 17:30:25
%S 2,3,5,373,4289,6761,14891,15083,1311749,1313797,1444901,1530229,
%T 1531253,17480321,17563841,17730241,17734337,27263017,27533417,
%U 27957929,28053737,50339843,50506243,50856067,51122371,61254251
%N Palindromic primes in bases 4 and 8.
%t Do[ If[PrimeQ[n], t = RealDigits[n, 8][[1]]; If[FromDigits[t] == FromDigits[Reverse[t]], s = RealDigits[n, 4][[1]]; If[FromDigits[s] == FromDigits[Reverse[s]], Print[n]]]], {n, 1, 10^8, 2}]
%Y Cf. A029972 and A029976.
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Jul 29 2000
|