A209396 - OEIS

%I #26 Feb 24 2023 02:36:52

%S 22193,25373,69539,107509,111373,167917,200807,202291,208591,217253,

%T 221873,236573,238573,250073,250307,274591,290539,355573,373073,

%U 382373,404273,407083,415391,417383,439009,441193,447907,515173,542837,581873,582083,591673

%N Each entry is the first of three consecutive primes with equal digital sum.

%C Subsequence of A066540.

%C The differences between the three primes of the triple are multiples of 18.

%H Harvey P. Dale, <a href="/A209396/b209396.txt">Table of n, a(n) for n = 1..1000</a>

%e 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

%t Select[Prime[Range[100000]], Total[IntegerDigits[#]] == Total[IntegerDigits[NextPrime[#, 1]]] == Total[IntegerDigits[NextPrime[#, 2]]] &] (* _T. D. Noe_, Mar 13 2012 *)

%t Transpose[Select[Partition[Prime[Range[50000]],3,1],Differences[ Total/@ (IntegerDigits/@#)]=={0,0}&]][[1]] (* _Harvey P. Dale_, Jul 22 2016 *)

%Y Cf. A066540, A209663, A210629.

%K nonn,base

%O 1,1

%A _Antonio Roldán_, Mar 13 2012