|
| |
|
|
A095407
|
|
Total number of decimal digits of all distinct prime factors of n.
|
|
8
| |
|
|
0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 3, 2, 2, 1, 3, 1, 2, 2, 3, 2, 1, 3, 3, 2, 2, 2, 3, 3, 2, 2, 3, 2, 3, 2, 3, 2, 2, 1, 2, 3, 3, 2, 2, 3, 2, 3, 3, 2, 3, 2, 3, 2, 1, 3, 4, 2, 3, 3, 3, 2, 2, 2, 3, 2, 3, 3, 4, 2, 2, 1, 3, 2, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 2, 2, 2, 3, 2, 3, 4, 3, 3, 3
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,6
|
|
|
EXAMPLE
| n=22: prime set={2,11}, a[22]=1+2=3.
|
|
|
MATHEMATICA
| ffi[x_] :=Flatten[FactorInteger[x]] lf[x_] :=Length[FactorInteger[x]] ba[x_] :=Table[Part[ffi[x], 2*j-1], {j, 1, lf[x]}] tdp[x_] :=Flatten[Table[IntegerDigits[Part[ba[x], j]], {j, 1, lf[x]}], 1] pl[x_] :=Length[tdp[x]] nl[x_] :=Length[IntegerDigits[x]] t1=Table[nl[w], {w, 1, 1000}]; t2=Table[pl[w], {w, 1, 1000}]; t2-t1
|
|
|
CROSSREFS
| Cf. A055642.
Sequence in context: A086288 A104360 A079951 * A038605 A113121 A109036
Adjacent sequences: A095404 A095405 A095406 * A095408 A095409 A095410
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jun 21 2004
|
| |
|
|
