|
%I #13 Jul 20 2022 07:33:40
%S 59,67,83,139,163,227,251,307,331,977,1019,1051,1123,1697,1777,1873,
%T 2003,2011,2593,2657,2729,2753,2833,3449,3457,3529,3617,4177,4273,
%U 4337,4409,4441,4513,4999,5081,5153,5209,5233,5879,6113,6121
%N Primes whose reversal is a multiple of 19.
%H Mohammed Yaseen, <a href="/A087766/b087766.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[800]],Divisible[FromDigits[Reverse [IntegerDigits[#]]],19]&] (* _Harvey P. Dale_, Mar 17 2011 *)
%o (PARI) forprime(n=2, 7000, if(fromdigits(Vecrev(digits(n)))%19==0, print1(n, ", "))) \\ _Mohammed Yaseen_, Jul 20 2022
%Y Primes whose reversal is a multiple of k: A045711 (k=5), A087762 (k=7), A087764 (k=13), A087765 (k=17), this sequence (k=19), A087767 (k=23).
%K easy,nonn,base
%O 1,1
%A _Zak Seidov_, Oct 03 2003
|
