|
|
A110794
|
|
a(1)=1, a(n) = Sum_{k=1..n-1} (number of divisors of a(k) that also divide n).
|
|
0
|
|
|
1, 1, 2, 4, 4, 8, 6, 16, 9, 15, 10, 26, 13, 21, 21, 30, 16, 36, 18, 42, 35, 34, 22, 62, 28, 45, 40, 61, 28, 76, 31, 67, 43, 55, 48, 93, 36, 61, 53, 90, 40, 100, 43, 85, 81, 70, 46, 125, 55, 100, 67, 97, 53, 116, 74, 120, 73, 90, 58, 183, 63, 98, 104, 127, 84, 136, 68, 135, 90
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
The divisors of the first 5 terms of the sequence are a(1):1; a(2):1; a(3):1,2; a(4):1,2,4; a(5):1,2,4. Eight of these divisors divide 6. (These divisors are 1;1;1,2;1,2;1,2.) So a(6) = 8.
|
|
MATHEMATICA
|
a = {1}; Do[AppendTo[a, Sum[Length[Select[Divisors[a[[i]]], Mod[Length[a] + 1, # ] == 0 &]], {i, 1, Length[a]}]], {70}]; a (* Stefan Steinerberger, Oct 16 2007 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|