OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
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.
MATHEMATICA
Select[Prime[Range[210]], PrimeQ[Plus @@IntegerDigits[#] + 1]&] (* Vincenzo Librandi, Sep 15 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(1500) | IsPrime(q) where q is 1+(&+Intseq(p))]; // Vincenzo Librandi, Jun 07 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Oct 28 2009
STATUS
approved