|
| |
|
|
A115751
|
|
a(1)=1. a(n) = number of positive divisors of n which are not among the first (n-1) terms of the sequence.
|
|
0
| |
|
|
1, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 4, 1, 2, 3, 2, 1, 3, 1, 3, 2, 2, 1, 4, 2, 2, 2, 3, 1, 5, 1, 3, 2, 2, 2, 5, 1, 2, 2, 4, 1, 5, 1, 3, 3, 2, 1, 6, 2, 3, 2, 3, 1, 4, 2, 5, 2, 2, 1, 6, 1, 2, 4, 4, 2, 4, 1, 3, 2, 5, 1, 7, 1, 2, 3, 3, 2, 4, 1, 6, 3, 2, 1, 6, 2, 2, 2, 5, 1, 7, 2, 3, 2, 2, 2, 7, 1, 3, 4, 5, 1, 4, 1, 5, 4
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
EXAMPLE
| The divisors of 12 are 1, 2, 3, 4, 6 and 12. Of these, only the four divisors 3, 4, 6 and 12 do not occur among the first 11 terms of the sequence. So a(12) = 4.
|
|
|
MAPLE
| with(numtheory): a[1]:=1: for n from 2 to 120 do div:=divisors(n): M:=convert([seq(a[j], j=1..n-1)], set): a[n]:=nops(div minus M): od: seq(a[n], n=1..120); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Apr 01 2006
|
|
|
CROSSREFS
| Cf. A088167.
Sequence in context: A113309 A062362 A084113 * A048684 A191613 A109969
Adjacent sequences: A115748 A115749 A115750 * A115752 A115753 A115754
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet, Mar 28 2006
|
|
|
EXTENSIONS
| More terms from Emeric Deutsch (deutsch(AT)duke.poly.edu), Apr 01 2006
|
| |
|
|
