PROG
(MAGMAMagma) [p: p in PrimesUpTo(7000) | IsPrime(p-d) where d is Max(Intseq(p))]; // Bruno Berselli, Jul 31 2014
(MAGMAMagma) [p: p in PrimesUpTo(7000) | IsPrime(p-d) where d is Max(Intseq(p))]; // Bruno Berselli, Jul 31 2014
proposed
approved
editing
proposed
The largest digit of a(n) is 2, 4, 6 or 8. - Robert Israel, Aug 03 2014
filter:= n -> isprime(n) and isprime(n - max(convert(n, base, 10))):
select(filter, [$1..10^5]); # Robert Israel, Aug 03 2014
proposed
editing
editing
proposed
The rightmost least significant digit of a(n) is either 1, 3 or 7. - _Colin Barker_, Aug 03 2014
proposed
editing
editing
proposed
The rightmost digit of a(n) is either 1, 3 or 7.
approved
editing
proposed
approved