|
Search: id:A090128
|
|
|
| A090128 |
|
Distinct values of sigma[n], the sum of divisors, in order of appearance as n grows. |
|
+0
1
|
|
| 1, 3, 4, 7, 6, 12, 8, 15, 13, 18, 28, 14, 24, 31, 39, 20, 42, 32, 36, 60, 40, 56, 30, 72, 63, 48, 54, 91, 38, 90, 96, 44, 84, 78, 124, 57, 93, 98, 120, 80, 168, 62, 104, 127, 144, 68, 126, 195, 74, 114, 140, 186, 121, 224, 108, 132, 180, 234, 112, 128, 252, 171, 156, 217
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
t=Table[DivisorSigma[1, w], {w, 1, 100}] s=Sort[t]; u=Union[t]; Length[u] Table[Count[s, Part[u, j]], {j, 1, Length[u]}] g=Table[Min[Flatten[Position[t, Part[u, j]]]], {j, 1, Length[u]}]; uu=Union[g]; Table[Part[t, Part[uu, j]], {j, 1, Length[g]}]
|
|
CROSSREFS
|
Cf. A053212, A090127.
Sequence in context: A000203 A003979 A084250 this_sequence A086293 A003981 A053480
Adjacent sequences: A090125 A090126 A090127 this_sequence A090129 A090130 A090131
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jan 16 2004
|
|
|
Search completed in 0.002 seconds
|
