|
%I #13 Jul 20 2022 08:47:39
%S 29,193,223,317,349,863,1163,1289,1319,1451,1483,1607,1801,2579,2609,
%T 2741,2803,3041,3167,3229,3361,3517,4363,4457,4519,4651,5077,5107,
%U 5333,5591,5653,5779,6047,6079,6367,6911,7211,7243,7369,7883
%N Primes whose reversal is a multiple of 23.
%H Mohammed Yaseen, <a href="/A087767/b087767.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%t Select[Prime[Range[1000]],Divisible[IntegerReverse[#],23]&] (* _Harvey P. Dale_, Apr 22 2022 *)
%o (PARI) forprime(n=2, 8000, if(fromdigits(Vecrev(digits(n)))%23==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), A087766 (k=19), this sequence (k=23).
%K easy,nonn,base
%O 1,1
%A _Zak Seidov_, Oct 03 2003
|
