A015763 Numbers k such that phi(k) divides sigma_5(k).

1, 2, 3, 6, 12, 14, 15, 30, 35, 42, 46, 56, 70, 78, 105, 134, 138, 140, 161, 168, 184, 190, 210, 230, 248, 264, 270, 299, 322, 357, 402, 414, 418, 420, 483, 552, 570, 594, 598, 616, 623, 630, 644, 670, 690, 714, 744, 805, 812, 840, 874, 897, 910

Offset: 1

Author

Robert G. Wilson v

Keywords

• nonn
• easy

Comments

sigma_5(n) is the sum of the 5th powers of the divisors of n.

Examples

			sigma_5(12) = 1^5 + 2^5 + 3^5 + 4^5 + 6^5 + 12^5 = 257908. phi(12) = 4. sigma_5(12) = 257908 is divisible by phi(12) = 4 so 12 is in the sequence. - _David A. Corneth_, Aug 24 2019
		

Links

• David A. Corneth, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000010, A001160.

Programs

Magma

[k:k in [1..1000]| DivisorSigma(5,k) mod EulerPhi(k)  eq 0]; // Marius A. Burtea, Aug 24 2019

Mathematica

Select[Range[910], Divisible[DivisorSigma[5, #], EulerPhi[#]] &] (* Jon Maiga, Aug 24 2019 *)

PARI

isok(n) = !(sigma(n, 5) % eulerphi(n)); \\ Michel Marcus, Aug 24 2019