A227931 Smallest sets of 5 consecutive primes with equal digital sum. The initial prime is listed.

5521819, 33014273, 36183593, 39874273, 47143739, 82934191, 83640653, 86225437, 89121073, 99551093, 104663773, 108616619, 109514719, 117611519, 131616409, 142348637, 151942291, 168056137, 168066791, 172096037, 196415237, 197604227, 203519819, 204983507

Offset: 1

Author

Shyam Sunder Gupta, Oct 06 2013

Keywords

• nonn
• base

Examples

			5521819 is in the sequence because 5521819, 5521891, 5521927, 5521963 and 5521981 are consecutive primes and the sum of the digits of each = 31.
		

Links

• Shyam Sunder Gupta, Table of n, a(n) for n = 1..445

Crossrefs

Cf. A066540, A209396, A210629, A071613.

Programs

Mathematica

a = {}; m = 1; s = 1; Do[If[(y = Apply[Plus, IntegerDigits[x = Prime[n]]]) == s , m = m + 1; If[m == 6, AppendTo[a, Prime[n - 5]]], m = 1]; s = y, {n, 2, 100000000}];a
Select[Partition[Prime[Range[11340000]],5,1],Length[Union[Total/@(IntegerDigits/@ #)]] == 1&][[All,1]] (* Harvey P. Dale, Apr 14 2022 *)