OFFSET
1,2
MATHEMATICA
Select[Range[36*10^5], 6#==DivisorSigma[1, 4#+1]&] (* The program generates the first 9 terms of the sequence. *) (* Harvey P. Dale, Mar 20 2026 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 04 2002
EXTENSIONS
a(9)-a(14) from Donovan Johnson, Feb 01 2009
STATUS
approved
