login
A087765
Primes whose reversal is a multiple of 17.
10
43, 71, 109, 137, 193, 631, 911, 997, 1049, 1291, 1543, 1571, 1609, 1637, 1693, 1759, 1787, 1823, 1973, 2053, 2081, 2269, 2297, 2333, 2549, 2699, 2707, 2791, 2857, 3001, 3217, 3581, 3769, 3797, 3833, 4007, 4091, 4129, 4157, 4409, 4493, 4651, 4903, 4931, 5011
OFFSET
1,1
LINKS
Mohammed Yaseen, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
MATHEMATICA
Select[Prime[Range[700]], Divisible[IntegerReverse[#], 17]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 25 2019 *)
PROG
(PARI) forprime(n=2, 6000, if(fromdigits(Vecrev(digits(n)))%17==0, print1(n, ", "))) \\ Mohammed Yaseen, Jul 20 2022
CROSSREFS
Primes whose reversal is a multiple of k: A045711 (k=5), A087762 (k=7), A087764 (k=13), this sequence (k=17), A087766 (k=19), A087767 (k=23).
Sequence in context: A174812 A146355 A175730 * A141971 A144974 A144975
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Oct 03 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Oct 05 2003
Corrected and extended by Harvey P. Dale, Aug 25 2019
STATUS
approved