OFFSET
1,2
COMMENTS
a(n) = the largest n-digit number of the form p^11, p^5*q, p^3*q^2 or p^2*q*r (p, q, r distinct primes), a(n) = 0 if no such number exists.
MATHEMATICA
Join[{0}, Table[Module[{n=10^i, k=1}, While[DivisorSigma[0, n-k]!=12, k++]; n-k], {i, 2, 30}]] (* Harvey P. Dale, Jun 02 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Nov 27 2010
STATUS
approved