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
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