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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jul 29 2000
STATUS
approved