[go: up one dir, main page]

login
A227933
Smallest sets of 6 consecutive primes with equal digital sum. The initial prime is listed.
1
354963229, 448024483, 467739719, 475313609, 525523709, 771943583, 790277219, 881160173, 901572019, 925569683, 1051470419, 1085896727, 1110999817, 1285560163, 1331768783, 1455016319, 1472310383, 1519074619, 1628600381, 1815368519, 1914032047, 1990306673
OFFSET
1,1
LINKS
Shyam Sunder Gupta, Table of n, a(n) for n = 1..46
EXAMPLE
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
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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, Oct 06 2013
STATUS
approved