OFFSET
1,1
COMMENTS
LINKS
T. Khovanova, Turning Numbers Inside Out [From Tanya Khovanova, Jul 07 2009]
MATHEMATICA
reversepower[{n_, k_}] := FromDigits[Reverse[IntegerDigits[n]]]^k f[n_] := FromDigits[ Reverse[IntegerDigits[Times @@ Map[reversepower, FactorInteger[n]]]]] rev[n_] := FromDigits[Reverse[IntegerDigits[n]]] Select[Range[10000], f[ # ] == # && rev[ # ] == # && ! PrimeQ[ # ] &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Jun 17 2009
EXTENSIONS
Edited by N. J. A. Sloane, Jun 23 2009
STATUS
approved