

A303741


Numbers k such that A(k+1) = A(k) + 2, where A() = A005101() are the abundant numbers.


4



2, 7, 10, 14, 16, 19, 22, 23, 26, 31, 36, 39, 44, 45, 48, 51, 52, 59, 62, 65, 70, 71, 74, 79, 81, 82, 83, 86, 87, 90, 93, 96, 99, 104, 107, 110, 111, 114, 118, 120, 125, 128, 131, 133, 135, 138, 141, 146, 149, 150, 155, 156, 158, 164, 169, 170, 175, 178, 179
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



FORMULA



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

A231086 is the main entry for this sequence.


KEYWORD

nonn


AUTHOR



STATUS

approved



