|
Search: id:A030057
|
|
|
| A030057 |
|
Least number which is not a sum of distinct divisors of n. |
|
+0
3
|
|
| 2, 4, 2, 8, 2, 13, 2, 16, 2, 4, 2, 29, 2, 4, 2, 32, 2, 40, 2, 43, 2, 4, 2, 61, 2, 4, 2, 57, 2, 73, 2, 64, 2, 4, 2, 92, 2, 4, 2, 91, 2, 97, 2, 8, 2, 4, 2, 125, 2, 4, 2, 8, 2, 121, 2, 121, 2, 4, 2, 169, 2, 4, 2, 128, 2, 145, 2, 8, 2, 4, 2, 196, 2, 4, 2, 8, 2, 169, 2, 187, 2, 4, 2, 225, 2, 4, 2, 181
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
a(n)=2 if and only if n is odd. a(2^n)=2^(n+1). - Emeric Deutsch (deutsch(AT)duke.poly.edu), Aug 07 2005
|
|
LINKS
|
David Wasserman (dwasserm(AT)earthlink.net), Apr 24 2007, Table of n, a(n) for n = 1..1000
|
|
EXAMPLE
|
a(10)=4 because 4 is the least positive integer that is not a sum of distinct divisors (namely 1,2,5 and 10) of 10.
|
|
MAPLE
|
with(combinat): with(numtheory): for n from 1 to 100 do div:=powerset(divisors(n)): b[n]:=sort({seq(sum(div[i][j], j=1..nops(div[i])), i=1..nops(div))}) od: for n from 1 to 100 do B[n]:={seq(k, k=0..1+sigma(n))} minus b[n] od: seq(B[n][1], n=1..100); (Deutsch)
|
|
CROSSREFS
|
Cf. A005153, A093896.
Sequence in context: A073017 A059866 A093895 this_sequence A134066 A090988 A095728
Adjacent sequences: A030054 A030055 A030056 this_sequence A030058 A030059 A030060
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net)
|
|
EXTENSIONS
|
Edited by njas, May 05 2007
|
|
|
Search completed in 0.002 seconds
|
