%I #13 Sep 08 2022 08:45:48
%S 3,7,11,13,17,19,31,37,71,73,79,97,113,131,137,139,173,179,191,193,
%T 197,311,313,317,331,337,373,379,397,719,733,739,773,911,937,971,997,
%U 1117,1171,1193,1319,1373,1733,1777,1913,1931,1973,1979,1997,1999
%N Primes p such that product of digits + 10 is prime.
%C 11 is in the sequence because 1*1+10=11 prime; 79 is in the sequence because 7*9+10=73.
%H Vincenzo Librandi, <a href="/A166559/b166559.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[400]], PrimeQ[Times@@IntegerDigits[#]+ 10]&] (* _Vincenzo Librandi_, Jan 01 2014 *)
%o (Magma) [p: p in PrimesUpTo(3000) | IsPrime(q) where q is &*Intseq(p)+10]; // _Bruno Berselli_, Jan 01 2014
%K nonn,base
%O 1,1
%A _Vincenzo Librandi_, Oct 28 2009
%E Corrected by _Vincenzo Librandi_, Jan 01 2014
|