OFFSET
1,2
MAPLE
with(numtheory): A:=select(n->sigma(n)>2*n, [$1..700]): a:=select(j->A[j+1]=A[j]+6, [$1..nops(A)-1]);
MATHEMATICA
Position[Map[{#1, #2 - 6} & @@ # &, Partition[Select[Range[10^3], DivisorSigma[1, #] > 2 # &], 2, 1]], _?(SameQ @@ # &)][[All, 1]] (* Michael De Vlieger, Jun 29 2018 *)
PROG
(GAP) A:=Filtered([1..700], n->Sigma(n)>2*n);; a:=Filtered([1..Length(A)-1], i->A[i+1]=A[i]+6);
CROSSREFS
KEYWORD
nonn
AUTHOR
Muniru A Asiru, Jun 25 2018
STATUS
approved