A343103 a(n) is the sum of the number of times each digit in n (taken with repetition) has appeared in the sequence.
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 2, 2, 1, 2, 2, 2, 2, 2, 2, 19, 11, 16, 8, 8, 8, 9, 8, 12, 11, 11, 11, 9, 0, 0, 0, 1, 0, 4, 3, 16, 16, 10, 2, 2, 1, 4, 2, 6, 5, 17, 20, 14, 2, 4, 2, 5, 3, 6, 5, 22, 25, 23, 8, 9, 9, 10, 6, 11, 11, 19, 27, 22, 5, 6, 7, 10, 6, 8, 9, 25, 33, 29, 11, 10, 12, 14, 9
Offset: 0
Examples
a(0) to a(9) = 0 as the digits 0 to 9 have not appeared in the sequence. a(10) = 10 as 1 has appeared zero times and 0 has appeared ten times, thus a(10) = 0 + 10 = 10. a(11) = 2 as 1 has appeared once in the sequence, and as 1 appears twice in 11, a(11) = 1 + 1 = 2. a(12) = 2 as 1 has appeared twice and 2 has appeared zero times, thus a(12) = 2 + 0 = 2. a(20) = 19 as 2 has appeared eight times and 0 has appeared eleven times, thus a(20) = 8 + 11 = 19. a(22) = 16 as 2 has appeared eight times in the sequence, and as 2 appears twice in 22, a(22) = 8 + 8 = 16.
Links
- Scott R. Shannon, Image of the terms for n=0..1000000. The green line is a(n) = n.
Programs
-
Mathematica
Block[{a = {}, d = ConstantArray[0, 10]}, Do[AppendTo[a, Total@ Map[d[[If[# == 0, 10, #] ]] &, IntegerDigits[i]]]; Set[d, d + DigitCount[a[[i + 1]] ]], {i, 0, 87}]; a] (* Michael De Vlieger, Apr 05 2021 *)
Comments