|
Search: id:A056146
|
|
|
| A056146 |
|
Palindromic primes in bases 4 and 8. |
|
+0
1
|
|
| 2, 3, 5, 373, 4289, 6761, 14891, 15083, 1311749, 1313797, 1444901, 1530229, 1531253, 17480321, 17563841, 17730241, 17734337, 27263017, 27533417, 27957929, 28053737, 50339843, 50506243, 50856067, 51122371, 61254251
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Do[ If[PrimeQ[n], t = RealDigits[n, 8][[1]]; If[FromDigits[t] == FromDigits[Reverse[t]], s = RealDigits[n, 4][[1]]; If[FromDigits[s] == FromDigits[Reverse[s]], Print[n]]]], {n, 1, 10^8, 2}]
|
|
CROSSREFS
|
Cf. A029972 and A029976.
Sequence in context: A042579 A033090 A046474 this_sequence A115835 A089678 A072712
Adjacent sequences: A056143 A056144 A056145 this_sequence A056147 A056148 A056149
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 29 2000
|
|
|
Search completed in 0.002 seconds
|
