OFFSET
1,1
COMMENTS
Subsequence of A066540.
The differences between the three primes of the triple are multiples of 18.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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