|
Search: id:A081396
|
|
|
| A081396 |
|
Number of common prime-factors (ignoring multiplicity) of sigma[n]=A000203(n) and phi[n]=A000010(n). |
|
+0
3
|
|
| 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 2, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 2, 1, 1, 1, 1, 1, 0, 1, 1, 2, 0, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 0, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 0, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 0, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 0
(list; graph; listen)
|
|
|
OFFSET
|
1,14
|
|
|
EXAMPLE
|
n=209: sigma[209]=240=2.2.2.2.3.5,phi[209]=180=2.2.3.3.5, common-factor-set={2,3,5}, so a[209]=3.
|
|
MATHEMATICA
|
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w-1], {w, 1, lf[x]}] Table[Length[Intersection[ba[EulerPhi[w]], ba[DivisorSigma[1, w]]]], {w, 1, 100}]
|
|
CROSSREFS
|
Cf. A000203, A000010, A081383.
Sequence in context: A121361 A052343 A073484 this_sequence A100544 A130654 A053259
Adjacent sequences: A081393 A081394 A081395 this_sequence A081397 A081398 A081399
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Mar 28 2003
|
|
|
Search completed in 0.002 seconds
|
