OFFSET
1,2
COMMENTS
Conjecture: a(5+5n)=1125*10^n for n>0. [Robert G. Wilson v, Jan 23 2009]
EXAMPLE
MATHEMATICA
f[n_] := Block[{d = Divisors@ n, len = DivisorSigma[0, n], i = 1, c = 1, s = ToString@ n}, While[i < len, If[ StringMatchQ[s, "*" <> ToString[d[[i]]] <> "*"], c++ ] ; i++ ]; c]; t = Table[0, {30}]; Do[ a = f[n]; If[ t[[a]] == 0, t[[a]] = n; Print[{a, n}]], {n, 2*10^8}] (* Robert G. Wilson v, Jan 23 2009 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, Jan 18 2009
EXTENSIONS
a(17)-a(28) from Robert G. Wilson v, Jan 23 2009
STATUS
approved