The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #3 Mar 30 2012 17:31:06
%S 2,31,31,61,71,601,701,911,8501,9901
%N Smallest prime which is n times its reversal.
%t f[n_] := Block[{k = 1}, While[p = Prime[k]; p <= n*FromDigits[ Reverse[ IntegerDigits[p]]], k++ ]; Prime[k]]; Table[ f[n], {n, 0, 9}]
%K base,fini,full,nonn
%O 0,1
%A _Robert G. Wilson v_, Oct 01 2004