OFFSET
1,1
LINKS
Dario Alejandro Alpern, Factorization using the Elliptic Curve Method.
EXAMPLE
At p=2, the number of distinct prime factors of 222 is 3.
At p=3, the number of distinct prime factors of 3333 is 3.
At p=5, the number of distinct prime factors of 555555 is 6.
At p=7, the number of distinct prime factors of 77777777 is 5.
MATHEMATICA
f[n_] := Length[ FactorInteger[ FromDigits[ Flatten[ Table[ IntegerDigits[ Prime[n]], {Prime[n] - 1}]] ]]]; Table[ f[n], {n, 17}] (* Robert G. Wilson v, Feb 21 2005 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, Feb 18 2005
EXTENSIONS
More terms from Robert G. Wilson v, Feb 21 2005
STATUS
approved