|
|
A028352
|
|
A Golomb-like recurrence that decreases infinitely often.
|
|
1
|
|
|
2, 8, 6, 4, 2, 24, 22, 20, 18, 16, 14, 12, 10, 8, 6, 4, 2, 72, 70, 68, 66, 64, 62, 60, 58, 56, 54, 52, 50, 48, 46, 44, 42, 40, 38, 36, 34, 32, 30, 28, 26, 24, 22, 20, 18, 16, 14, 12, 10, 8, 6, 4, 2, 216, 214, 212, 210, 208, 206, 204, 202
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The sequence is a solution to the recursion a(a(n) + n) = a(n) + 4n, which is similar to the Golomb recursion b(b(n) + kn) = 2b(n) + kn, k=1,2,...
|
|
LINKS
|
|
|
FORMULA
|
a(1)=1, a(2*3^m+r) = 8*3^m - 2r with m=0, 1, 2, ..., 0 <= r <= 4*3^m - 1. - Ralf Stephan, Jan 16 2003
a(n) = 12*3^floor(log(n/2)/log(3)) - 2*n. - Benoit Cloitre, Jan 23 2003
|
|
MATHEMATICA
|
Table[12*3^Floor[Log[n/2]/Log[3]] - 2*n , {n, 1, 50}] (* G. C. Greubel, Nov 27 2016 *)
|
|
PROG
|
(PARI) a(n) = if(n==1, 2, m=floor(log(n/2)/log(3)); r=n-2*3^m; 8*3^m-2*r)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|