proposed
approved
proposed
approved
editing
proposed
a[n_] := Sum[ Boole[ MemberQ[ IntegerDigits[t] + t, n]], {t, Max[0, n-9], n}]; Array[a, 88, 0]
n}]; Array[a, 88, 0]
proposed
editing
editing
proposed
allocated for Giovanni Restaa(n) is the number of ways n can be obtained by adding some digit of a number k to k.
1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 2, 1, 2, 1, 3, 1, 3, 1, 3, 1, 3, 0, 3, 1, 2, 1, 3, 1, 3, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 3, 1, 3, 0, 3, 1, 3, 1, 2, 1, 3, 1, 3, 1, 2, 1, 3, 1, 3, 1, 2, 1, 3, 1, 3, 0, 3, 1, 3, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 3, 1, 3, 1, 2, 1, 3, 0
0,11
By definition terms cannot exceed 10. The values from 0 to 10 are obtained the first time with n = 1, 0, 10, 14, 102, 104, 1206, 12406, 124506, 1245606, and 12456806, respectively.
Eric Angelini, Posting to Sequence Fans Mailing List, Apr 20 2014.
a(102) = 4 because 102 can written as 93+9, 96+6, 101+1, and 102+0.
a[n_] := Sum[ Boole[ MemberQ[ IntegerDigits[t] + t, n]], {t, Max[0, n-9],
n}]; Array[a, 88, 0]
allocated
nonn,base,easy
Giovanni Resta, Feb 19 2020
approved
editing
allocated for Giovanni Resta
allocated
approved