|
%I #5 Oct 02 2013 15:47:29
%S 7,11,199,607,829,1103,1109,1303,1307,1367,2089,2377,2591,3259,3299,
%T 3301,4007,4423,5323,5927,8623,10099,10103,10459,11197,12101,12107,
%U 12109,12343,12479,13007,13009,14369,17623,21019,24049,24229,24841
%N Largest prime of the set of four consecutive primes whose sum of digits is a set of four distinct primes.
%e a(3)=199 is a term because sum of digits of four consecutive primes i.e. (191, 193, 197, 199), whose sum of digits (i.e. 11, 13, 17, 19)is a set of four distinct primes.
%t fdpQ[{a_,b_,c_,d_}]:=Module[{e,f,g,h},{e,f,g,h}=Total[ IntegerDigits[#]]&/@ {a,b,c,d};Length[Union[{e,f,g,h}]]==4&&And@@PrimeQ[{e,f,g,h}]]; Transpose[ Select[ Partition[ Prime[ Range[2800]],4,1],fdpQ]][[4]] (* _Harvey P. Dale_, Aug 23 2012 *)
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, May 18 2005
|
