%I #3 Feb 11 2014 19:05:30
%S 37,51,67,89,93,179,191,373,391,445,478,479,519,521,551,581,583,601,
%T 613,619,653,655,661,673,697,701,703,713,719,727,753,759,769,773,778,
%U 851,853,881,886,889,907,913,919,923,949,973,974
%N 2^n contains all divisors of n as substrings.
%e 2^51 = 2251799813685248, which contains the divisors of 51, i.e. 1, 3, 17, 51, as substrings, so 51 belongs to the sequence.
%t a = {}; Do[d = Divisors[i]; l = Length[d]; r = True; s = ToString[2^i]; For[j = 1, j <= l, j++, If[StringPosition[s, ToString[d[[j]]]] == {}, r = False; Break] ]; If[r == True, a = Append[a, i]], {i, 1, 10^3}]; a
%K base,nonn
%O 1,1
%A _Joseph L. Pe_, Sep 25 2002
|