|
Search: id:A073811
|
|
|
| A073811 |
|
Number of common divisors of n and Phi[n]. |
|
+0
2
|
|
| 1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 3, 1, 2, 1, 4, 1, 4, 1, 3, 2, 2, 1, 4, 2, 2, 3, 3, 1, 2, 1, 5, 1, 2, 1, 6, 1, 2, 2, 4, 1, 4, 1, 3, 2, 2, 1, 5, 2, 4, 1, 3, 1, 6, 2, 4, 2, 2, 1, 3, 1, 2, 3, 6, 1, 2, 1, 3, 1, 2, 1, 8, 1, 2, 2, 3, 1, 4, 1, 5, 4, 2, 1, 6, 1, 2, 1, 4, 1, 4, 1, 3, 2, 2, 1, 6, 1, 4, 2, 6, 1, 2, 1, 4, 2
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
FORMULA
|
a(n)=Card[Intersection[D[n], D[A000010(n)]]].
|
|
EXAMPLE
|
n=24: Phi[n]=8; Intersection[{1,2,3,4,6,8,12,24},{1,2,4,8}]={1,2,4,8}, so a(24)=4.
|
|
MATHEMATICA
|
g1[x_] := Divisors[x] g2[x_] := Divisors[EulerPhi[x]] ncd[x_] := Length[Intersection[g1[x], g2[x]]] Table[ncd[w], {w, 1, 128}]
|
|
CROSSREFS
|
Cf. A000010, A073802, A073808, A073809, A073810.
Sequence in context: A057217 A147810 A055181 this_sequence A125030 A116479 A122810
Adjacent sequences: A073808 A073809 A073810 this_sequence A073812 A073813 A073814
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Aug 13 2002
|
|
|
Search completed in 0.002 seconds
|
