The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A040997 Absolute value of first digit of n minus sum of other digits of n. 15
 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 0, 1, 2, 3, 4, 5, 6, 7 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS This is different from |A055017(n)| = |(x1 + x3 + ...) - (x2 + x4 + ...)|, where x1,...,xk are the digits of n. - M. F. Hasler, Nov 09 2019 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 FORMULA If decimal expansion of n is x1 x2 ... xk then a(n) = |x1-x2-x3- ... -xk|. a(n) = abs(A000030(n) - A007953(A217657(n)). - Reinhard Zumkeller, Oct 10 2012 EXAMPLE a(371) = |3-7-1| = 5. PROG (Haskell) a040997 n = abs \$ a000030 n - a007953 (a217657 n) -- Reinhard Zumkeller, Oct 10 2012 (PARI) apply( A040997(n)={abs(vecsum(n=digits(n))-n[1]*2)}, [1..199]) \\ M. F. Hasler, Nov 09 2019 CROSSREFS Cf. A037904, A040114, A040115, A040163. Sequence in context: A076313 A055017 A225693 * A256851 A247149 A330350 Adjacent sequences:  A040994 A040995 A040996 * A040998 A040999 A041000 KEYWORD nonn,base AUTHOR EXTENSIONS Name edited and incorrect formula deleted by M. F. Hasler, Nov 09 2019 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 3 15:51 EDT 2020. Contains 333197 sequences. (Running on oeis4.)