OFFSET
1,1
COMMENTS
A subset of the divisors of zero in carryless arithmetic mod 10, e.g., 5 * 44 = 0.
LINKS
David Applegate, Marc LeBrun and N. J. A. Sloane, Carryless Arithmetic (I): The Mod 10 Version.
MATHEMATICA
lst = {2, 5}; k = 1; While[k < 10^5, id = Union@ IntegerDigits@k; len = Length@ id; If[ len == 2 && id == {0, 2} || id == {0, 5}, AppendTo[lst, k]]; k++ ]; lst (* Robert G. Wilson v, Jul 12 2010 *)
Join[{2, 5}, Sort[Flatten[Table[Select[FromDigits/@Tuples[{k, 0}, 6], DigitCount[ #, 10, 0]>0 && DigitCount[#, 10, k]>0&], {k, {2, 5}}]]]] (* Harvey P. Dale, Jul 03 2020 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
More terms from Robert G. Wilson v, Jul 12 2010
STATUS
approved