%I #9 Aug 12 2024 09:35:14
%S 8,24,40,56,72,88,104,120,128,136,152,168,179,184,200,216,232,248,264,
%T 280,296,312,323,328,344,358,360,376,384,389,392,398,408,424,437,440,
%U 456,459,472,488,493,504,520,536,537,552,568,569,584,600,616,621,632
%N Positive integers with the property that the sum of the cubes of their divisors is a multiple of 585.
%C It is easy to show that this sequence contains all positive integers of the form 16k+8.
%t Select[Range[700],Divisible[Total[Divisors[#]^3],585]&] (* _Harvey P. Dale_, Feb 23 2011 *)
%o (PARI) is(k) = !(sigma(k, 3) % 585); \\ _Amiram Eldar_, Aug 12 2024
%Y Cf. A001158.
%K nonn
%O 1,1
%A _John W. Layman_, Feb 09 2010
|