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 A041000 #14 Mar 07 2022 13:26:43
%S A041000 2,3,5,7,0,2,6,8,1,7,2,4,3,1,3,2,4,5,1,6,4,2,5,1,2,0,2,6,8,1,4,1,3,5,
%T A041000 4,3,1,2,0,3,1,6,7,5,1,1,0,1,3,5,2,4,1,2,0,1,1,4,2,5,3,4,4,1,1,3,1,1,
%U A041000 0,2,1,1,2,1,1,2,2,1,3,5,4,1,0,2,2,3,1,2,1,1,3,2,3,4,4,2,4,2,0,0,2,3,2,2,1,5
%N A041000 If decimal expansion of n-th prime is x1 x2 ... xk, sort the xi into nonincreasing order, y1 y2 ... yk; then a(n) = |y1-y2-y3...-yk|.
%F A041000 a(n) = |A007953(n)-2*A054055(n)|. [_Charles R Greathouse IV_, May 07 2011]
%e A041000 a(397)=|9-7-3|=1.
%t A041000 der[n_]:=Module[{c=Reverse[Sort[IntegerDigits[n]]]},Abs[First[c]-Total[Rest[c]]]]; der/@Prime[Range[110]] (* _Harvey P. Dale_, Aug 15 2012 *)
%Y A041000 Cf. A040164, A007953, A054055.
%K A041000 easy,nonn,base
%O A041000 1,1
%A A041000 _Felice Russo_
%E A041000 More terms from _Michel ten Voorde_