A194126 -1+A088207.
1, 6, 13, 23, 36, 51, 69, 89, 112, 138, 166, 197, 231, 267, 306, 347, 391, 438, 487, 539, 593, 650, 710, 772, 837, 905, 975, 1048, 1123, 1201, 1282, 1365, 1451, 1540, 1631, 1725, 1821, 1920, 2022, 2126, 2233, 2342, 2454, 2569, 2686, 2806, 2929
Offset: 1
Keywords
Programs
-
Mathematica
c[k_]:=-1+Sum[Floor[j+j*GoldenRatio],{j,1,k}]; c=Table[c[k],{k,1,40}]
Formula
a(n)=-1+sum(floor(j+j*r) : 1<=j<=n), where r=(1+sqrt(5))/2, the golden ratio.
Comments