|
%I #18 Jul 03 2020 18:41:42
%S 2,5,20,50,200,202,220,500,505,550,2000,2002,2020,2022,2200,2202,2220,
%T 5000,5005,5050,5055,5500,5505,5550,20000,20002,20020,20022,20200,
%U 20202,20220,20222,22000,22002,22020,22022,22200,22202,22220,50000,50005
%N Numbers consisting of either 2's and 0's or 5's and 0's.
%C A subset of the divisors of zero in carryless arithmetic mod 10, e.g., 5 * 44 = 0.
%H David Applegate, Marc LeBrun and N. J. A. Sloane, <a href="http://neilsloane.com/doc/carry1.pdf">Carryless Arithmetic (I): The Mod 10 Version</a>.
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%H <a href="/index/Ca#CARRYLESS">Index entries for sequences related to carryless arithmetic</a>
%t 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 *)
%t 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 *)
%Y Cf. A004520, A059729, A168294, A169884.
%K nonn,base,easy
%O 1,1
%A _David Applegate_, _Marc LeBrun_ and _N. J. A. Sloane_, Jul 06 2010
%E More terms from _Robert G. Wilson v_, Jul 12 2010
|
