|
|
A056130
|
|
Palindromic primes in bases 2 and 4.
|
|
2
|
|
|
3, 5, 17, 257, 5189, 65537, 83269, 86293, 1053953, 1066049, 1134929, 1311749, 1380629, 16864513, 17060929, 17909009, 18153809, 18171217, 21251141, 22103317, 289423441, 290455889, 290735441, 336662789, 336925957, 340873541
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
5 is 101 (base 2) and 11 (base 4), that are both palindromic.
|
|
MATHEMATICA
|
Do[If[PrimeQ[n], t = RealDigits[n, 4][[1]]; If[FromDigits[t] == FromDigits[Reverse[t]], s = RealDigits[n, 2][[1]]; If[FromDigits[s] == FromDigits[Reverse[s]], Print[n]]]], {n, 1, 10^8, 2}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|