Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #9 Feb 11 2014 19:05:30
%S 1,5,25,49,125,251,499,751,1249,4999,18229,31249,49999,281249,4218751,
%T 4999999,9590417,31622777,68171507,74218751,574218751,5740883989,
%U 8829261293
%N Numbers n such that all the divisors of n appear as substrings in n^3.
%e The divisors of 125 are 1, 5, 25, 125, which appear as substrings in 1953125, so 125 is a term of the sequence.
%t a = {}; Do[d = Divisors[i]; l = Length[d]; r = True; s = ToString[i^3]; 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^5}]; a
%K base,nonn
%O 1,2
%A _Joseph L. Pe_, Sep 25 2002
%E a(15)-a(23) from _Donovan Johnson_, Dec 13 2010