|
| |
|
|
A294936
|
|
Characteristic function for nondeficient numbers (A023196): a(n) = 1 if A001065(n) >= n, 0 otherwise.
|
|
12
|
|
|
|
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1
|
|
|
COMMENTS
|
Differs from A210455 for the first time at n=70, and after that at n=836, 4030, 5830, 7192, 7912, 9272, etc., that is, at weird numbers, A006037.
|
|
|
LINKS
|
|
|
|
FORMULA
|
a(n) = 1 if A033880(n) >= 0, 0 otherwise.
|
|
|
EXAMPLE
|
The proper divisors of 6 are 1, 2 and 3, and their sum is 6, and because 6 >= 6, a(6) = 1.
The proper divisors of 70 are 1, 2, 5, 7, 10, 14, and 35, and their sum is 74, and because 74 >= 70, a(70) = 1.
|
|
|
MATHEMATICA
|
Table[If[DivisorSigma[1, n]>=2n, 1, 0], {n, 120}] (* Harvey P. Dale, Mar 22 2020 *)
|
|
|
PROG
|
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
