A078558 GCD of sigma(p#) and phi(p#) where p# = A002110(n) is the product of the first n primes.
1, 2, 8, 48, 96, 1152, 9216, 1658880, 3317760, 92897280, 2786918400, 100329062400, 802632499200, 370816214630400, 741632429260800, 2966529717043200, 29665297170432000, 355983566045184000
Offset: 1
Keywords
Examples
m=2,3,30,210 primorials are balanced numbers so these GCD() equals phi(): a(n)=1,2,8,48 (see A005867).
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..400
Programs
-
Mathematica
GCD[DivisorSigma[1,#],EulerPhi[#]]&/@FoldList[Times,Prime[Range[20]]] (* Harvey P. Dale, Feb 28 2016 *)
-
PARI
a(n)=gcd(prod(i=1,n,prime(i)-1),prod(i=1,n,prime(i)+1)) \\ Charles R Greathouse IV, Dec 09 2013