|
%I #26 Feb 19 2024 10:28:05
%S 1,34,228,444,482,492,876,1292,1308,2482,2812,3876,5548,5617,8194,
%T 8284,8436,9348,10804,10982,11234,13172,16132,16644,17876,18204,22468,
%U 24852,28324,31828,32412,32946,35186,35916,39516,44914,46754,47804,48396
%N Numbers n such that n | sigma_12(n).
%C sigma_12(n) is the sum of the 12th powers of the divisors of n (A013960).
%H Amiram Eldar, <a href="/A055716/b055716.txt">Table of n, a(n) for n = 1..4000</a>
%t Do[If[Mod[DivisorSigma[12, n], n]==0, Print[n]], {n, 1, 10^5}]
%o (Magma) [k:k in [1..50000]| IsIntegral(DivisorSigma(12,k)/ k)]; // _Marius A. Burtea_, Nov 06 2019
%Y Cf. A013960.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jun 09 2000
|
