A087766 Primes whose reversal is a multiple of 19.

59, 67, 83, 139, 163, 227, 251, 307, 331, 977, 1019, 1051, 1123, 1697, 1777, 1873, 2003, 2011, 2593, 2657, 2729, 2753, 2833, 3449, 3457, 3529, 3617, 4177, 4273, 4337, 4409, 4441, 4513, 4999, 5081, 5153, 5209, 5233, 5879, 6113, 6121

Offset

1,1

Links

Mohammed Yaseen, Table of n, a(n) for n = 1..10000

Mathematica

Select[Prime[Range[800]], Divisible[FromDigits[Reverse [IntegerDigits[#]]], 19]&]  (* Harvey P. Dale, Mar 17 2011 *)

Prog

(PARI) forprime(n=2, 7000, if(fromdigits(Vecrev(digits(n)))%19==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), A087765 (k=17), this sequence (k=19), A087767 (k=23).

Sequence in context: A033237 A139894 A048988 * A096339 A216872 A235225

Adjacent sequences: A087763 A087764 A087765 * A087767 A087768 A087769

Keyword

easy,nonn,base

Author

Zak Seidov, Oct 03 2003

Status

approved