OFFSET
1,1
MATHEMATICA
Select[Range[50000], DivisorSigma[1, 4#+5]==6#&] (* The program generates the first 7 terms of the sequence. *) (* Harvey P. Dale, Sep 29 2024 *)
PROG
(PARI) isok(m) = sigma(4*m+5) == 6*m; \\ Michel Marcus, Feb 17 2021
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Benoit Cloitre, Feb 04 2002
EXTENSIONS
a(8)-a(9) from Donovan Johnson, Feb 01 2009
STATUS
approved