A301867 Numbers n such that phi(n), psi(n) and sigma(n) are simultaneously perfect squares.
1, 170, 679, 5770, 9154, 9809, 14322, 22413, 37114, 51455, 82615, 100821, 101153, 115430, 139954, 171069, 198462, 222893, 233358, 270485, 349894, 389045, 391090, 514294, 561782, 595122, 608685, 664853, 701338, 815538, 1009527, 1231230, 1290993, 1397091
Offset: 1
Keywords
Examples
170 is in the sequence since phi(170) = 64 = 8^2, sigma(170) = psi(170) = 324 = 18^2. 25264008, the first nonsquarefree term ( > 1 ) in the sequence, has phi = 2520^2, sigma = 9600^2 and psi = 8064^2.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
a = {}; psi[n_] := DirichletConvolve[j, MoebiusMu[j]^2, j, n]; aQ[n_] := AllTrue[Sqrt[{DivisorSigma[1, n], EulerPhi[n], psi[n]}], IntegerQ]; Do[If[aQ[k], AppendTo[a, k]], {k,1,10^7}]; a
Comments