OFFSET
1,1
LINKS
Shiri Artstein-Avidan, Aviezri S. Fraenkel and Vera T. Sos, A two-parameter family of an extension of Beatty sequences, Discr. Math. 308 (2008), 4578-4588.
Shiri Artstein-Avidan, Aviezri S. Fraenkel and Vera T. Sos, A two-parameter family of an extension of Beatty sequences, preprint.
MAPLE
Digits := 200: a001622:= (1+sqrt(5))/2 : A140979 := proc(n) global a001622 ; floor(2*a001622*floor(n*a001622)) ; end: for n from 1 to 100 do printf("%d, ", A140979(n)); end: # R. J. Mathar, Sep 05 2008
MATHEMATICA
Table[Floor[2*GoldenRatio*Floor[n*GoldenRatio]], {n, 70}] (* Harvey P. Dale, Feb 25 2018 *)
PROG
(Python)
from math import isqrt
def A140979(n): return (m:=n+isqrt(5*n**2)&-2)+isqrt(5*m**2)>>1 # Chai Wah Wu, Aug 29 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Sep 04 2008
EXTENSIONS
Definition corrected and more terms from R. J. Mathar, Sep 05 2008
STATUS
approved