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,11

Comments

The fixed points > 0 in the first one million terms are 10, 101, 194. It is likely no more exist.

Links

Table of n, a(n) for n=0..87.

Scott R. Shannon, Image of the terms for n=0..1000000. The green line is a(n) = n.

Example

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.

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 *)

Crossrefs

Cf. A343102 (count only unique digits in n), A326834, A004207, A309261, A331162.

Sequence in context: A010173 A357339 A259712 * A136712 A138999 A351306

Adjacent sequences: A343100 A343101 A343102 * A343104 A343105 A343106

Keyword

nonn,base

Author

Scott R. Shannon, Apr 05 2021

Status

approved