login
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
OFFSET
1,1
COMMENTS
Subsequence of A066540.
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
Antonio Roldán, Mar 13 2012
STATUS
approved