cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A083547 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.

This page as a plain text file.
%I A083547 #13 Apr 09 2021 03:50:56
%S A083547 1,12,24,36,36,60,60,72,80,96,120,120,120,144,144,168,180,240,264,360,
%T A083547 360,432,480,504,480,480,720,720,720,720,840,840,864,840,840,840,840,
%U A083547 960,900,960,960,1080,1260,1224,1320,1320,1440,1440,1320,1440,1440,1728
%N A083547 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 A083547 Amiram Eldar, <a href="/A083547/b083547.txt">Table of n, a(n) for n = 1..300</a>
%t A083547 f[x_] := EulerPhi[x]; Do[s=Sqrt[Sqrt[f[n+1]*f[n]]]; If[IntegerQ[s], Print[s]], {n, 1, 1000000}]
%Y A083547 Cf. A000010, A082788, A083538, A083542, A083545, A083546.
%K A083547 nonn
%O A083547 1,2
%A A083547 _Labos Elemer_, May 21 2003
%E A083547 a(29)-a(52) from _Amiram Eldar_, Apr 09 2021