|
|
A140099
|
|
A Beatty sequence: a(n) = [n*(1+t)], where t = tribonacci constant (A058265); complement of A140098.
|
|
12
|
|
|
2, 5, 8, 11, 14, 17, 19, 22, 25, 28, 31, 34, 36, 39, 42, 45, 48, 51, 53, 56, 59, 62, 65, 68, 70, 73, 76, 79, 82, 85, 88, 90, 93, 96, 99, 102, 105, 107, 110, 113, 116, 119, 122, 124, 127, 130, 133, 136, 139, 141, 144, 147, 150, 153, 156, 159, 161, 164, 167, 170, 173
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Note that A276385 agrees with this sequence for n <= 17160 but disagrees beyond that point. In fact a(17161) = 48725, whereas A276385(17161) = 48724. - N. J. A. Sloane, Sep 03 2016
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
Tribonacci constant: t = 1.839286755214161132551852564653286600...
|
|
MATHEMATICA
|
With[{tc=1/3 (1+Surd[19-3Sqrt[33], 3])+1/3 Surd[19+3Sqrt[33], 3]}, Array[ Floor[ (1+tc)*#]&, 70]] (* Harvey P. Dale, Dec 05 2013 *)
|
|
PROG
|
(PARI) {a(n)=local(t=(1+(19+3*sqrt(33))^(1/3)+(19-3*sqrt(33))^(1/3))/3); floor(n*(1+t))}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|