OFFSET
1,1
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory): A:=select(k->sigma(k)<2*k, [$1..300]):
a:=seq(A[i], i in select(k->A[k+1]-A[k]=2, [$1..nops(A)-1]));
PROG
(GAP) A:=Filtered([1..300], k->Sigma(k)<2*k);;
a:=List(Filtered([1..Length(A)-1], i->A[i+1]-A[i]=2), j->A[j]);
CROSSREFS
KEYWORD
nonn
AUTHOR
Muniru A Asiru, Aug 04 2018
STATUS
approved