OFFSET
1,1
COMMENTS
Sequence represented by citing the number of repeated digits concatenated with that digit, i.e. a(8) = 122.
No more terms < 3600. - David Wasserman, Jun 03 2005
EXAMPLE
a(6) = 86 because 66666666= 2*3*11*73*101*137, is 8 digits long and has 6 distinct prime divisors.
MATHEMATICA
PrimeFactors[n_Integer] := Flatten[Table[ #[[1]], {1}] & /@ FactorInteger[n]]; Do[k = 1; While[t = Table[j*(10^k - 1)/9, {j, 1, 9}]; l = Map[Length, Map[PrimeFactors, t]]; Position[l, n] == {}, k++ ]; d = t[[Position[l, n][[1, 1]]]]; Print[10k + Position[l, n][[1, 1]]], {n, 0, 17}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Sep 06 2003
EXTENSIONS
More terms from David Wasserman, Jun 03 2005
STATUS
approved