OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..14573
EXAMPLE
691 is in the sequence because it is prime and its reversal, 196, is a power (greater than one) of 14.
MATHEMATICA
f[n_] := Block[{a, p = ToExpression[ StringReverse[ ToString[ Prime[n]]]]}, Log[ Apply[ Times, Transpose[ FactorInteger[p]][[1]]], p]]; Prime[ Select[ Range[10^5], IntegerQ[ f[ # ]] && f[ # ] > 1 &]]
PROG
(PARI) lista(nn) = {forprime(p=2, nn, if (ispower(subst(Polrev(digits(p)), x, 10)), print1(p, ", ")); ); } \\ Michel Marcus, Jun 03 2016
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 09 2002
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Apr 15 2002
Missing terms a(4), a(24), and a(26) added by Chai Wah Wu, Jun 02 2016
STATUS
approved