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
Links
- Mohammed Yaseen, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
Crossrefs
Programs
-
Mathematica
Select[Prime[Range[1000]],Divisible[IntegerReverse[#],23]&] (* Harvey P. Dale, Apr 22 2022 *)
-
PARI
forprime(n=2, 8000, if(fromdigits(Vecrev(digits(n)))%23==0, print1(n, ", "))) \\ Mohammed Yaseen, Jul 20 2022