OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
FORMULA
a(n+1) = 3*floor(n*phi)+2*n+3 for n>=0, where phi = (1+sqrt(5))/2 (see A188011). - Michel Dekking, Sep 28 2017
MATHEMATICA
r=(1+5^(1/2))/2; k=3;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}] (* A188011 *)
Flatten[Position[t, 0]] (* A188012 *)
Flatten[Position[t, 1]] (* A188013 *)
Table[3*Floor[(n-1)*GoldenRatio] + 2*n + 1, {n, 1, 65}] (* G. C. Greubel, Nov 22 2018 *)
PROG
(PARI) vector(65, n, 3*floor((n-1)*(1+sqrt(5))/2)+2*n+1) \\ G. C. Greubel, Nov 22 2018
(Magma) [3*Floor((n-1)*(1+Sqrt(5))/2)+2*n+1: n in [1..65]]; // G. C. Greubel, Nov 22 2018
(Sage) [3*floor((n-1)*(1+sqrt(5))/2)+2*n+1 for n in (1..65)] # G. C. Greubel, Nov 22 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 19 2011
STATUS
approved