OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..22582
MATHEMATICA
Do[ If[ PrimeQ[ n ] && IntegerQ[ ToExpression[ StringReverse[ ToString[ n ] ] ]^(1/4) ], Print[ n ] ], {n, 1, 10^12} ]
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 16 2001
STATUS
approved