The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #22 Sep 13 2023 07:30:26
%S 110,125,210,250,310,360,375,410,510,520,610,710,735,810,910,1000,
%T 1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1197,1210,
%U 1250,1280,1296,1310,1352,1410,1510,1520,1593,1610,1710,1734,1750,1810,1910,2010
%N Numbers that are the products of distinct substrings of themselves.
%H Reinhard Zumkeller, <a href="/A059469/b059469.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1) = 110 = 11*10; a(10) = 520 = 52*5*2; a(13) = 735 = 35*7*3.
%t okQ[n_] := Module[{dd, nn}, If[n == 1 || PrimeQ[n], Return[False]]; dd = IntegerDigits[n]; nn = FromDigits /@ Flatten[Table[dd[[i ;; j]], {i, 1, Length[dd]}, {j, i, Length[dd]}], 1] // Union // Most // Select[#, # != 0 && Divisible[n, #]&]&; MemberQ[Times @@@ Subsets[nn], n]];
%t Select[Range[38110], okQ] (* _Jean-François Alcover_, Aug 19 2019 *)
%K nice,nonn,base
%O 1,1
%A _Erich Friedman_, Feb 03 2001
%E Offset corrected, example extended, and b-file added by _Reinhard Zumkeller_, Sep 08 2008