OFFSET
1,1
COMMENTS
Complement of A167216.
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[3700]], ! PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] - 1] &]
PROG
(Magma) [p: p in PrimesInInterval(2, 400) |not IsPrime(q-1) where q is Seqint(Reverse(Intseq(p)))];
(PARI) ok(n)={isprime(n)&&!isprime(fromdigits(Vecrev(digits(n)))-1)} \\ Andrew Howroyd, Feb 27 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Jul 11 2014
STATUS
approved