A083547 - OEIS

%I #13 Apr 09 2021 03:50:56

%S 1,12,24,36,36,60,60,72,80,96,120,120,120,144,144,168,180,240,264,360,

%T 360,432,480,504,480,480,720,720,720,720,840,840,864,840,840,840,840,

%U 960,900,960,960,1080,1260,1224,1320,1320,1440,1440,1320,1440,1440,1728

%N a(n) = sqrt(sqrt(phi(A083546(n)) * phi(1+A083546(n)))), the 4th root of product of totients of terms and 1+terms of A082788.

%H Amiram Eldar, <a href="/A083547/b083547.txt">Table of n, a(n) for n = 1..300</a>

%t f[x_] := EulerPhi[x]; Do[s=Sqrt[Sqrt[f[n+1]*f[n]]]; If[IntegerQ[s], Print[s]], {n, 1, 1000000}]

%Y Cf. A000010, A082788, A083538, A083542, A083545, A083546.

%K nonn

%O 1,2

%A _Labos Elemer_, May 21 2003

%E a(29)-a(52) from _Amiram Eldar_, Apr 09 2021