OFFSET
6,1
LINKS
Felix Fröhlich, Table of n, a(n) for n = 6..100
PROG
(PARI) a(n) = p=prime(n); r=eval(concat(Vecrev(Str(p)))); s=eval(Str(p, r)); i=0; while(!ispseudoprime(s), if(i%2==0, s=eval(Str(s, p)); i++, s=eval(Str(s, r)); i++)); s
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Felix Fröhlich, Aug 02 2015
STATUS
approved