|
Search: id:A056130
|
|
|
| A056130 |
|
Palindromic primes in bases 2 and 4. |
|
+0
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; listen)
|
|
|
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: A056826 A058910 A023394 this_sequence A078726 A019434 A164307
Adjacent sequences: A056127 A056128 A056129 this_sequence A056131 A056132 A056133
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 29 2000
|
|
|
Search completed in 0.005 seconds
|
