|
|
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
|
|
|
|