|
|
A209396
|
|
Each entry is the first of three consecutive primes with equal digital sum.
|
|
6
|
|
|
22193, 25373, 69539, 107509, 111373, 167917, 200807, 202291, 208591, 217253, 221873, 236573, 238573, 250073, 250307, 274591, 290539, 355573, 373073, 382373, 404273, 407083, 415391, 417383, 439009, 441193, 447907, 515173, 542837, 581873, 582083, 591673
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The differences between the three primes of the triple are multiples of 18.
|
|
LINKS
|
|
|
EXAMPLE
|
200807 is in the sequence because 200807, 200843, 200861 are consecutive primes and sum_of_digits(200807)= sum_of_digits(200843)= sum_of_digits(200861)=17
|
|
MATHEMATICA
|
Select[Prime[Range[100000]], Total[IntegerDigits[#]] == Total[IntegerDigits[NextPrime[#, 1]]] == Total[IntegerDigits[NextPrime[#, 2]]] &] (* T. D. Noe, Mar 13 2012 *)
Transpose[Select[Partition[Prime[Range[50000]], 3, 1], Differences[ Total/@ (IntegerDigits/@#)]=={0, 0}&]][[1]] (* Harvey P. Dale, Jul 22 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|