cp's OEIS Frontend

A245742 Primes p such that p + d is also prime, where d is the largest digit of p.

%I A245742 #24 Sep 08 2022 08:46:09
%S A245742 43,61,263,461,563,601,613,641,653,683,821,1063,1283,1361,1423,1481,
%T A245742 1601,1613,1621,1663,1823,1871,2063,2081,2111,2381,2843,3061,3163,
%U A245742 3343,3461,3463,3631,3881,4003,4561,4583,4643,4651,5563,5641,5651,5653,5783,5813
%N A245742 Primes p such that p + d is also prime, where d is the largest digit of p.
%C A245742 The least significant digit of a(n) is either 1 or 3. - _Colin Barker_, Aug 03 2014
%C A245742 The largest digit of a(n) is 2, 4, 6 or 8. - _Colin Barker_, Aug 04 2014
%H A245742 Jens Kruse Andersen, <a href="/A245742/b245742.txt">Table of n, a(n) for n = 1..10000</a>
%e A245742 263 is in the sequence because 263 + 6 = 269, which is prime.
%p A245742 select(p -> isprime(p) and isprime(p + max(convert(p,base,10))), [$1..1000]); # _Robert Israel_, Aug 03 2014
%o A245742 (PARI) select(p->isprime(p+vecsort(digits(p),,4)[1]), primes(2000))
%o A245742 (Magma) [p: p in PrimesUpTo(7000) | IsPrime(p+d) where d is Max(Intseq(p))]; // _Bruno Berselli_, Jul 31 2014
%Y A245742 Cf. A245743, A245744, A245745.
%K A245742 nonn,base
%O A245742 1,1
%A A245742 _Colin Barker_, Jul 31 2014