OFFSET
1,1
COMMENTS
EXAMPLE
The upper Wythoff sequence begins with 2,5,7,10,13,15,18,...
Double these: 4,10,14,20,26,30,36,...; subtract 1: 3,9,13,19,25,29,35,...;
Then merge: 3,4,9,10,13,14,19,20,25,26,29,30,35,36,...
MATHEMATICA
Union[Flatten[{#, # - 1}]] &[2 Array[Floor[#*GoldenRatio^2] &, 20]] (* Peter J. C. Moses, May 12 2025 *)
PROG
(Python)
from math import isqrt
def A137709(n): return (((m:=n+1>>1)+isqrt(5*m**2)>>1)+m<<1)-(n&1) # Chai Wah Wu, May 30 2025
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 07 2008
STATUS
approved
