|
%I #10 Sep 08 2022 08:45:53
%S 2,11,17,53,59,71,101,107,149,167,233,239,251,257,293,347,383,419,431,
%T 491,503,509,521,563,617,653,701,743,761,941,1049,1061,1151,1193,1223,
%U 1229,1283,1319,1373,1409,1427,1481,1511,1553,1571,1601,1607,1733
%N Primes p such that sum of digits + 5 is prime.
%H Vincenzo Librandi, <a href="/A176985/b176985.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2000]], PrimeQ[Plus@@IntegerDigits[#] + 5] &] (* _Vincenzo Librandi_, Feb 15 2014 *)
%o (Magma) [p: p in PrimesUpTo(1500) | IsPrime(q) where q is 5+&+Intseq(p)]; // _Vincenzo Librandi_, Jun 07 2014
%Y Cf. similar sequences listed in A243586.
%K nonn,base
%O 1,1
%A _Vincenzo Librandi_, Apr 30 2010
|
