OFFSET
0,17
PROG
(PARI) revmult(n) = n*eval(concat(Vecrev(Str(n))))
a(n) = my(i=0); for(k=2, n-1, my(x=k); while(x < n, if(x==revmult(x), break, x=revmult(x))); if(x==n, i++)); i
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Felix Fröhlich, Jul 06 2022
STATUS
approved