OFFSET
1,1
COMMENTS
11 is in the sequence because 1*1+10=11 prime; 79 is in the sequence because 7*9+10=73.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[400]], PrimeQ[Times@@IntegerDigits[#]+ 10]&] (* Vincenzo Librandi, Jan 01 2014 *)
PROG
(Magma) [p: p in PrimesUpTo(3000) | IsPrime(q) where q is &*Intseq(p)+10]; // Bruno Berselli, Jan 01 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Oct 28 2009
EXTENSIONS
Corrected by Vincenzo Librandi, Jan 01 2014
STATUS
approved