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,1

Links

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

Example

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

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

Crossrefs

Cf. A066540, A209396, A210629, A071613.

Sequence in context: A208455 A207825 A204802 * A254195 A254188 A253800

Adjacent sequences: A227928 A227929 A227930 * A227932 A227933 A227934

Keyword

nonn,base

Author

Shyam Sunder Gupta, Oct 06 2013

Status

approved