OFFSET
1,1
COMMENTS
a(n) = absolute difference between the first digit of prime(n) and the sum of the other digits of prime(n). [Harvey P. Dale, Mar 11 2012]
LINKS
James Spahlinger, Table of n, a(n) for n = 1..10000
FORMULA
If decimal expansion of n-th prime is x1 x2 x3......xk then a(n)=|x1-x2-x3.......-xk|
MATHEMATICA
ddp[n_]:=Module[{idn=IntegerDigits[n]}, Abs[First[idn]-Total[Rest[idn]]]]; ddp/@Prime[Range[100]] (* Harvey P. Dale, Mar 11 2012 *)
PROG
CROSSREFS
KEYWORD
base,nonn
AUTHOR
STATUS
approved