login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Palindromic primes in bases 2 and 8.
0

%I #7 Sep 23 2017 13:45:32

%S 3,5,7,73,28807,31727,262657,295433,1311749,1385621,1478189,1540157,

%T 1543741,1549501,1551037,1865159,1932247,2031599,2067007,2085247,

%U 2087807,83914757,84663941,85742021,85808581,88779413,89420117,89466197,89924053,90169301,94971053,94983341

%N Palindromic primes in bases 2 and 8.

%t Do[ If[ PrimeQ[ n ], t=RealDigits[ n, 8 ][ [ 1 ] ]; If[ FromDigits[ t ]==FromDigits[ Reverse[ t ] ], s=RealDigits[ n, 2 ][ [ 1 ] ]; If[ FromDigits[ s ]==FromDigits[ Reverse[ s ] ], Print[ n ] ] ] ], {n, 1, 10^8} ]

%t Select[Prime[Range[155000]],PalindromeQ[IntegerDigits[#,2]] && PalindromeQ[ IntegerDigits[ #,8]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 23 2017 *)

%Y Cf. A016041 and A029976.

%K nonn,base

%O 1,1

%A _Robert G. Wilson v_, Jul 29 2000

%E More terms from _Harvey P. Dale_, Sep 23 2017