OFFSET
1,1
MATHEMATICA
Do[k = 2; While[ ! PrimeQ[ ToExpression[ StringReverse[ ToString[k^n] ] ] ], k *= 2]; Print[k], {n, 1, 18} ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 16 2001
STATUS
approved