|
%I #12 Apr 10 2021 21:09:46
%S 2,3,5,7,11,13,17,19,23,29,31,1153,1217,1249,1409,1601,1697,1889,2017,
%T 3203,3299,3331,3491,3779,3907,4003,5189,5381,5413,5477,5573,5669,
%U 5701,5861,6053,7207,7559,7591,7687,7879,8039,8167,9257,9769,9833,9929,11467
%N Primes that are palindromic in base 32.
%e 1153_10 = 141_32. - _Jon E. Schoenfield_, Apr 10 2021
%t b = 32; lst = {}; Do[p = Prime[n]; If[IntegerDigits[p, b] == Reverse[IntegerDigits[p, b]], AppendTo[lst, p]], {n, 2000}]; lst (* _T. D. Noe_, Apr 19 2012 *)
%Y Cf. A029978, A029979, A029980, A029981, A029982, A029732.
%K nonn,base
%O 1,1
%A _Alex Ratushnyak_, Apr 19 2012
|
