|
| |
|
|
A056130
|
|
Palindromic primes in bases 2 and 4.
|
|
1
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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
| Cf. A016041 and A029972.
Sequence in context: A058910 A023394 A176689 * A078726 A019434 A164307
Adjacent sequences: A056127 A056128 A056129 * A056131 A056132 A056133
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 29 2000
|
| |
|
|
