%I #7 Sep 26 2020 15:34:30
%S 2,3,5,7,11,19,43,59,29,457,13,47,349,103,257,109,449,397,431,17,37,
%T 97,233,653,79,101,127,701,367,197,3863,131,1627,379,547,151,587,1667,
%U 433,643,617,181,191,277,887,599,3709,1973,809,619,239,659,1747,1877,1433
%N Minimal prime whose reversal is a multiple of n-th prime.
%e n=100, p(n)=541, minimal prime whose reversal is a multiple of 541 is 2801.
%t Module[{nn=600,irp},irp=IntegerReverse/@Prime[Range[nn]];Table[ IntegerReverse[ SelectFirst[irp,IntegerQ[#/p]&]],{p,Prime[Range[60]]}]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 26 2020 *)
%Y Cf. A007488.
%K easy,nonn,base
%O 1,1
%A _Zak Seidov_, Oct 03 2003