OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
a[n_] := Sum[Floor[j*(1+Sqrt[3])/2], {j, 1, n}]; Table[a[n], {n, 1, 90}]
With[{c=(1+Sqrt[3])/2}, Accumulate[Floor[c*Range[50]]]] (* Harvey P. Dale, Aug 02 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 16 2011
EXTENSIONS
Definition corrected by Georg Fischer, Jul 31 2023
STATUS
approved