A074493 Numbers n such that all the divisors of n appear as substrings in n^3.

1, 5, 25, 49, 125, 251, 499, 751, 1249, 4999, 18229, 31249, 49999, 281249, 4218751, 4999999, 9590417, 31622777, 68171507, 74218751, 574218751, 5740883989, 8829261293

Offset

1,2

Links

Table of n, a(n) for n=1..23.

Example

The divisors of 125 are 1, 5, 25, 125, which appear as substrings in 1953125, so 125 is a term of the sequence.

Mathematica

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

Crossrefs

Sequence in context: A273789 A147176 A298041 * A262760 A290700 A136914

Adjacent sequences: A074490 A074491 A074492 * A074494 A074495 A074496

Keyword

base,nonn

Author

Joseph L. Pe, Sep 25 2002

Extensions

a(15)-a(23) from Donovan Johnson, Dec 13 2010

Status

approved