OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..4720
EXAMPLE
26 is in the sequence because 26 = 2 * 13 and the factor 2 appears in the decimal representation. Though 13 does not appear, the 2 is enough for 26 to be in the sequence.
27 is not in the sequence since 27 = 3 * 3 * 3, which does not appear in the decimal representation.
MATHEMATICA
digs[n_] := IntegerDigits[n]; A050696 = {}; Do[le1 = Max@@Length/@(prFDigs = digs[First/@FactorInteger[n]]); dSubStrs = Flatten[Table[Partition[digs[n], i, 1], {i, le1}], 1]; If[!PrimeQ[n] && Intersection[prFDigs, dSubStrs] != {}, AppendTo[A050696, n]], {n, 2, 180}]; A050696 (* Jayanta Basu, May 31 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Aug 15 1999
STATUS
approved