A106818 Largest prime of the set of four consecutive primes whose sum of digits is a set of four distinct primes.

7, 11, 199, 607, 829, 1103, 1109, 1303, 1307, 1367, 2089, 2377, 2591, 3259, 3299, 3301, 4007, 4423, 5323, 5927, 8623, 10099, 10103, 10459, 11197, 12101, 12107, 12109, 12343, 12479, 13007, 13009, 14369, 17623, 21019, 24049, 24229, 24841

Offset

1,1

Links

Table of n, a(n) for n=1..38.

Example

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.

Mathematica

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 *)

Crossrefs

Sequence in context: A128340 A106716 A292791 * A231329 A322950 A201120

Adjacent sequences: A106815 A106816 A106817 * A106819 A106820 A106821

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 18 2005

Status

approved