%I #14 Mar 07 2022 13:26:43
%S 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 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 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 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 a(n) = |A007953(n)-2*A054055(n)|. [_Charles R Greathouse IV_, May 07 2011]
%e a(397)=|9-7-3|=1.
%t 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 Cf. A040164, A007953, A054055.
%K easy,nonn,base
%O 1,1
%A _Felice Russo_
%E More terms from _Michel ten Voorde_
|