A241178 Numbers n such that there are exactly three numbers m with m + (some digit of m) = n.
14, 16, 18, 20, 22, 26, 28, 30, 34, 38, 40, 42, 44, 46, 50, 52, 56, 58, 62, 64, 66, 68, 70, 74, 78, 80, 82, 86, 88, 90, 92, 94, 100, 101, 103, 105, 107, 110, 114, 116, 118, 120, 122, 124, 136, 142, 148, 152, 154, 160, 162, 176, 182, 184, 192, 196, 198, 203, 205, 207, 210, 212, 214, 222, 226, 228, 230, 232, 234, 236
Offset: 1
Examples
14 = 7 + 7 = 12 + 2 = 13 + 1. 28 = 19 + 9 = 24 + 4 = 26 + 2.
References
- Eric Angelini, Posting to Sequence Fans Mailing List, Apr 20 2014.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Magma
f:=func
; [k:k in [11..236]| #[m:m in [1..k]| f(k,m)] eq 3]; // Marius A. Burtea, Feb 18 2020 -
Maple
See A241177.
-
Mathematica
A241178[n_] := Module[{m, c = 0}, Do[c = c + Count[m + Union[IntegerDigits[m]], n], {m, 0, n}]; c]; Select[Range[0, 236], A241178[#] == 3 &] (* Robert Price, Mar 20 2019 *)
Comments