OFFSET
1,1
COMMENTS
It is easy to show that this sequence contains all positive integers of the form 16k+8.
MATHEMATICA
Select[Range[700], Divisible[Total[Divisors[#]^3], 585]&] (* Harvey P. Dale, Feb 23 2011 *)
PROG
(PARI) is(k) = !(sigma(k, 3) % 585); \\ Amiram Eldar, Aug 12 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
John W. Layman, Feb 09 2010
STATUS
approved