A277722 a(n) = floor(n*tau^2) where tau is the tribonacci constant (A058265).

0, 3, 6, 10, 13, 16, 20, 23, 27, 30, 33, 37, 40, 43, 47, 50, 54, 57, 60, 64, 67, 71, 74, 77, 81, 84, 87, 91, 94, 98, 101, 104, 108, 111, 115, 118, 121, 125, 128, 131, 135, 138, 142, 145, 148, 152, 155, 158, 162, 165, 169, 172, 175, 179, 182, 186, 189, 192, 196, 199, 202, 206, 209, 213, 216, 219

Offset

0,2

Links

JungHwan Min, Table of n, a(n) for n = 0..10000

A. J. Hildebrand, Junxian Li, Xiaomin Li and Yun Xie, Almost Beatty Partitions, arXiv:1809.08690 [math.NT], 2018.

Maple

A277722 := proc(n)
    a276800 :=  3.3829757679062374941227085364550345869493820437485761820195626772353718960099402922235933340043661396041006 ;
    floor(n*a276800) ;
end proc:
seq(A277722(n), n=0..100) ; # R. J. Mathar, Nov 02 2016

Mathematica

A277722[n_] := Floor[n (1/3 (1 + (19 - 3 Sqrt[33])^(1/3) + (19 + 3 Sqrt[33])^(1/3)))^2]; Array[A277722, 66, 0] (* JungHwan Min, Nov 06 2016 *)

Crossrefs

Cf. A058265, A158919, A276800, A277723.

Sequence in context: A310051 A353093 A080667 * A190007 A310052 A310053

Adjacent sequences: A277719 A277720 A277721 * A277723 A277724 A277725

Keyword

nonn

Author

N. J. A. Sloane, Oct 30 2016

Status

approved