login
Minimal prime whose reversal is a multiple of n-th prime.
0

%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