A227933 Smallest sets of 6 consecutive primes with equal digital sum. The initial prime is listed.

354963229, 448024483, 467739719, 475313609, 525523709, 771943583, 790277219, 881160173, 901572019, 925569683, 1051470419, 1085896727, 1110999817, 1285560163, 1331768783, 1455016319, 1472310383, 1519074619, 1628600381, 1815368519, 1914032047, 1990306673

Offset: 1

Author

Shyam Sunder Gupta, Oct 06 2013

Keywords

• nonn
• base

Examples

			354963229 is in the sequence because 354963229, 354963283, 354963319, 354963337, 354963373 and 354963391 are consecutive primes and the sum of the digits of each = 43
		

Links

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

Crossrefs

Cf. A066540, A209396, A210629, A071613, A227931.

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, 200000000}];a