|
| |
|
|
A210629
|
|
Each entry is the first of four consecutive primes with equal digital sum.
|
|
6
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
REFERENCES
|
The differences between each of the 4-consecutive primes are multiples of 18. - Harvey P. Dale, Jul 22 2016
|
|
|
LINKS
|
Table of n, a(n) for n=1..34.
|
|
|
EXAMPLE
|
2288509 is in the sequence because 2288509, 2288527, 2288563, and 2288581 are consecutive primes and the sum of the digits of each = 34
|
|
|
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 *)
|
|
|
CROSSREFS
|
Cf. A066540, A209663, A209396.
Sequence in context: A234657 A015361 A259306 * A156621 A108841 A124490
Adjacent sequences: A210626 A210627 A210628 * A210630 A210631 A210632
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Harvey P. Dale, Mar 25 2012
|
|
|
STATUS
|
approved
|
| |
|
|
