A241179 Numbers n such that there are exactly four numbers m with m + (some digit of m) = n.

102, 108, 126, 128, 130, 134, 138, 140, 144, 146, 150, 156, 158, 164, 166, 168, 170, 174, 178, 180, 186, 188, 190, 194, 200, 204, 208, 216, 218, 220, 238, 240, 242, 246, 250, 252, 256, 258, 262, 266, 268, 270, 278, 280, 282, 286, 288, 290, 292, 300, 302, 306, 308, 314, 318, 320, 322, 328, 330, 344, 350, 352, 358, 362

Offset

1,1

References

Eric Angelini, Posting to Sequence Fans Mailing List, Apr 20 2014

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

See A241177.

Mathematica

A241179[n_] := Module[{m, c = 0},
   Do[c = c + Count[m + Union[IntegerDigits[m]], n], {m, 0, n}]; c];
Select[Range[0, 362], A241179[#] == 4 &] (* Robert Price, Mar 20 2019 *)

Crossrefs

Related sequences: A241173, A241174, A241175, A241176, A241177, A241178, A241179, A241180, A241181, A241182, A241183.

Sequence in context: A153225 A070795 A046293 * A096924 A354710 A031413

Adjacent sequences: A241176 A241177 A241178 * A241180 A241181 A241182

Keyword

nonn,base

Author

N. J. A. Sloane, Apr 23 2014

Status

approved