A231963 Concatenate n with its UPC check digit, a(n) = 10*n + A237042(n).
17, 24, 31, 48, 55, 62, 79, 86, 93, 109, 116, 123, 130, 147, 154, 161, 178, 185, 192, 208, 215, 222, 239, 246, 253, 260, 277, 284, 291, 307, 314, 321, 338, 345, 352, 369, 376, 383, 390, 406, 413, 420, 437, 444, 451, 468, 475, 482, 499, 505, 512, 529, 536, 543, 550, 567, 574, 581
Offset: 1
Examples
a(13) = 130 because 1 * 1 + 3 * 3 = 10, giving a check digit of 0. a(14) = 147 because 1 * 1 + 4 * 3 = 13, and -13 = 7 mod 10. a(15) = 154 because 1 * 1 + 5 * 3 = 16, and -16 = 4 mod 10.
References
- David Salomon, Coding for Data and Computer Communications. New York: Springer (2006): 41 - 42.
Links
- GS1, Check Digit Calculator.
- Eric Weisstein's World of Mathematics, UPC.
Programs
-
PARI
a(n) = 10*n + vecsum(digits(n,100)*31\-10) % 10; \\ Kevin Ryde, Oct 03 2023
Formula
a(n) = 10n + c(n), where c(n) = A237042(n) = -( (Sum_{i=1..floor(L/2)} d(2i-1)) + 3*(Sum_{j=0..floor(L/2)} d(2j)) ) mod 10, where L is how many digits n has, d(L - 1) is the most significant digit of n, ..., and d(0) is the one's place digit.
Comments