OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1) = 110 = 11*10; a(10) = 520 = 52*5*2; a(13) = 735 = 35*7*3.
MATHEMATICA
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]];
Select[Range[38110], okQ] (* Jean-François Alcover, Aug 19 2019 *)
CROSSREFS
KEYWORD
nice,nonn,base
AUTHOR
Erich Friedman, Feb 03 2001
EXTENSIONS
Offset corrected, example extended, and b-file added by Reinhard Zumkeller, Sep 08 2008
STATUS
approved