A105582 Smallest composite number n such that every divisor > 1 includes n as a substring.

10201, 121, 254, 39, 1849, 25, 16043, 497, 6889, 1691, 10201, 111221, 16129, 13169, 214411, 1532801, 516221, 117589, 1401847, 19361, 2520899, 44521, 512231, 235129, 582497, 628253, 726031, 395279, 802817, 295639, 921307, 31961, 4320991, 143323

Offset

0,1

Comments

All entries so far are semiprimes (A001358), some are perfect powers (A001597). - Robert G. Wilson v, May 09 2005

Links

Table of n, a(n) for n=0..33.

Mathematica

fQ[n_, i_] := Block[{d = ToString /@ Drop[ Divisors[n], 1]}, Union[ StringPosition[d, ToString[i]]][[1]] != {}]; Do[k = 2; While[ PrimeQ[k] || fQ[k, n] == False, k++ ]; Print[k], {n, 0, 31}] (* Robert G. Wilson v, May 09 2005 *)

Crossrefs

Sequence in context: A216262 A243410 A221119 * A243819 A258890 A255872

Adjacent sequences: A105579 A105580 A105581 * A105583 A105584 A105585

Keyword

nonn,base

Author

David W. Wilson, May 08 2005

Extensions

More terms from Robert G. Wilson v, May 09 2005

Status

approved