%I #13 Sep 08 2022 08:45:48
%S 2,11,13,19,31,37,73,79,97,101,103,109,127,163,181,211,271,277,307,
%T 349,367,433,439,457,499,523,541,547,613,619,631,673,691,709,727,769,
%U 787,811,853,859,877,907,967,1009
%N Primes p such that sum of digits + 1 is prime.
%H Vincenzo Librandi, <a href="/A166561/b166561.txt">Table of n, a(n) for n = 1..1000</a>
%e 2 belongs to this sequence because 2+1=3 prime; 11 because 1+1+1=3; 127 because 1+2+7+1=11; 1009 because 1+0+0+9+1=11.
%t Select[Prime[Range[210]], PrimeQ[Plus @@IntegerDigits[#] + 1]&] (* _Vincenzo Librandi_, Sep 15 2013 *)
%o (Magma) [p: p in PrimesUpTo(1500) | IsPrime(q) where q is 1+(&+Intseq(p))]; // _Vincenzo Librandi_, Jun 07 2014
%Y Cf. similar sequences listed in A243586.
%K nonn,base
%O 1,1
%A _Vincenzo Librandi_, Oct 28 2009