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
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Apr 23 2014
STATUS
approved