A087769 Minimal prime whose reversal is a multiple of n-th prime.
2, 3, 5, 7, 11, 19, 43, 59, 29, 457, 13, 47, 349, 103, 257, 109, 449, 397, 431, 17, 37, 97, 233, 653, 79, 101, 127, 701, 367, 197, 3863, 131, 1627, 379, 547, 151, 587, 1667, 433, 643, 617, 181, 191, 277, 887, 599, 3709, 1973, 809, 619, 239, 659, 1747, 1877, 1433
Offset: 1
Examples
n=100, p(n)=541, minimal prime whose reversal is a multiple of 541 is 2801.
Crossrefs
Cf. A007488.
Programs
-
Mathematica
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 *)