OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..5000 from Muniru A Asiru)
MAPLE
with(numtheory): A:=select(n->sigma(n)>2*n, [$1..1000]): a:=select(j->A[j+1]=A[j]+2, [$1..nops(A)-1]);
MATHEMATICA
Position[Differences[Select[Range[750], DivisorSigma[1, #] > 2*# &]], 2] // Flatten (* Amiram Eldar, Mar 15 2024 *)
PROG
(GAP) A:=Filtered([1..1000], n->Sigma(n)>2*n);; a:=Filtered([1..Length(A)-1], i->A[i+1]=A[i]+2);
CROSSREFS
KEYWORD
nonn
AUTHOR
Muniru A Asiru, Jun 22 2018
STATUS
approved