OFFSET
0,1
COMMENTS
All entries so far are semiprimes (A001358), some are perfect powers (A001597). - Robert G. Wilson v, May 09 2005
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
KEYWORD
nonn,base
AUTHOR
David W. Wilson, May 08 2005
EXTENSIONS
More terms from Robert G. Wilson v, May 09 2005
STATUS
approved