A210629 Each entry is the first of four consecutive primes with equal digital sum.

1442173, 2288509, 2660183, 2805773, 3830891, 4137473, 4951073, 5216137, 5517173, 5521819, 5521891, 5914591, 6474119, 6518173, 7118519, 7570273, 8508473, 8584273, 8689573, 8912591, 9383053, 9958519, 10116373, 10204391, 11418193, 11878873, 11890873, 12948773, 13738163, 13873073, 14377157, 14436391, 14677573, 14732191

Offset: 1

Author

Harvey P. Dale, Mar 25 2012

Keywords

• nonn
• base

Comments

The differences between each of the 4-consecutive primes are multiples of 18. - Harvey P. Dale, Jul 22 2016

Examples

			2288509 is in the sequence because 2288509, 2288527, 2288563, and 2288581 are consecutive primes and the sum of the digits of each = 34
		

Crossrefs

Cf. A066540, A209663, A209396.

Programs

Mathematica

Transpose[Select[Partition[Prime[Range[1000000]],4,1],Total[ IntegerDigits[#[[1]]]]==Total[IntegerDigits[#[[2]]]] == Total[ IntegerDigits[#[[3]]]]==Total[IntegerDigits[#[[4]]]]&]][[1]]
Transpose[Select[Partition[Prime[Range[10^6]],4,1], Differences[ Total/@ (IntegerDigits/@#)]=={0,0,0}&]][[1]] (* Harvey P. Dale, Jul 22 2016 *)