A087767 Primes whose reversal is a multiple of 23.

29, 193, 223, 317, 349, 863, 1163, 1289, 1319, 1451, 1483, 1607, 1801, 2579, 2609, 2741, 2803, 3041, 3167, 3229, 3361, 3517, 4363, 4457, 4519, 4651, 5077, 5107, 5333, 5591, 5653, 5779, 6047, 6079, 6367, 6911, 7211, 7243, 7369, 7883

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[1000]], Divisible[IntegerReverse[#], 23]&] (* Harvey P. Dale, Apr 22 2022 *)

Prog

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

Sequence in context: A355623 A125339 A126497 * A142226 A323576 A142653

Adjacent sequences: A087764 A087765 A087766 * A087768 A087769 A087770

Keyword

easy,nonn,base

Author

Zak Seidov, Oct 03 2003

Status

approved