|
|
A080199
|
|
a(1)=1; for n>1, a(n)=a(n-1) - 3 if n is already in the sequence, a(n)=a(n-1) + 6 otherwise.
|
|
0
|
|
|
1, 7, 13, 19, 25, 31, 28, 34, 40, 46, 52, 58, 55, 61, 67, 73, 79, 85, 82, 88, 94, 100, 106, 112, 109, 115, 121, 118, 124, 130, 127, 133, 139, 136, 142, 148, 154, 160, 166, 163, 169, 175, 181, 187, 193, 190, 196, 202, 208, 214, 220, 217, 223, 229
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 3*n*(1 + 1/log_3(n)) + o(n).
|
|
MATHEMATICA
|
a[1] = 1;
a[n_] := a[n] = If[MemberQ[Array[a, n-1], n], a[n-1]-3, a[n-1]+6];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|