This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A209396 #26 Feb 24 2023 02:36:52
%S A209396 22193,25373,69539,107509,111373,167917,200807,202291,208591,217253,
%T A209396 221873,236573,238573,250073,250307,274591,290539,355573,373073,
%U A209396 382373,404273,407083,415391,417383,439009,441193,447907,515173,542837,581873,582083,591673
%N A209396 Each entry is the first of three consecutive primes with equal digital sum.
%C A209396 Subsequence of A066540.
%C A209396 The differences between the three primes of the triple are multiples of 18.
%H A209396 Harvey P. Dale, <a href="/A209396/b209396.txt">Table of n, a(n) for n = 1..1000</a>
%e A209396 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 A209396 Select[Prime[Range[100000]], Total[IntegerDigits[#]] == Total[IntegerDigits[NextPrime[#, 1]]] == Total[IntegerDigits[NextPrime[#, 2]]] &] (* _T. D. Noe_, Mar 13 2012 *)
%t A209396 Transpose[Select[Partition[Prime[Range[50000]],3,1],Differences[ Total/@ (IntegerDigits/@#)]=={0,0}&]][[1]] (* _Harvey P. Dale_, Jul 22 2016 *)
%Y A209396 Cf. A066540, A209663, A210629.
%K A209396 nonn,base
%O A209396 1,1
%A A209396 _Antonio Roldán_, Mar 13 2012