OFFSET
1,1
MATHEMATICA
Do[ k = 1; While[ Mod[ k, 10 ] == 0 || IntegerQ[ Log[ 2, k ] ] || ! PrimeQ[ ToExpression[ StringReverse[ ToString[ k^n ] ] ] ], k++ ]; Print[ k ], {n, 1, 50} ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 16 2001
STATUS
approved