This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A081396 Number of common prime factors (ignoring multiplicity) of sigma(n)=A000203(n) and phi(n)=A000010(n). 2
 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; refs; listen; history; text; internal format)
 OFFSET 1,14 LINKS 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}] PROG (PARI) a(n)=omega(gcd(sigma(n), eulerphi(n))) \\ Charles R Greathouse IV, Feb 19 2013 CROSSREFS Cf. A000203, A000010, A081383. Sequence in context: A052343 A073484 A203947 * A194293 A194297 A100544 Adjacent sequences:  A081393 A081394 A081395 * A081397 A081398 A081399 KEYWORD nonn AUTHOR Labos E. (labos(AT)ana.sote.hu), Mar 28 2003 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .