OFFSET
1,1
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
EXAMPLE
For n = 7, prime(7) = 17, R(17) = 71, and prime(71) = 353. [Edited by Paolo Xausa, Dec 22 2025]
MAPLE
R:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||n):
a:= n-> ithprime(R(ithprime(n))):
seq(a(n), n=1..49); # Alois P. Heinz, Dec 22 2025
MATHEMATICA
Prime[IntegerReverse[Prime[Range[50]]]] (* Paolo Xausa, Dec 22 2025 *)
PROG
(PARI) revi(n) = fromdigits(Vecrev(digits(n)));
a(n) = prime(revi(prime(n)));
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Cino Hilliard, Dec 04 2006
EXTENSIONS
Name clarified and offset changed to 1 by Paolo Xausa, Dec 22 2025.
STATUS
approved
