OFFSET
1,1
MATHEMATICA
Do[ If[ PrimeQ[ n ] && IntegerQ[ ToExpression[ StringReverse[ ToString[ n ] ] ]^(1/7) ], Print[ n ] ], {n, 1, 10^19} ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 16 2001
EXTENSIONS
More terms from Sean A. Irvine, Sep 09 2022
STATUS
approved