A283771 Numbers k such that L(k) = 2 mod 3, where L = A000201 = lower Wythoff sequence.

5, 7, 9, 11, 18, 20, 22, 24, 31, 33, 35, 37, 44, 46, 48, 50, 57, 59, 61, 63, 68, 70, 72, 74, 76, 81, 83, 85, 87, 94, 96, 98, 100, 107, 109, 111, 113, 120, 122, 124, 126, 133, 135, 137, 139, 146, 148, 150, 152, 157, 159, 161, 163, 165, 170, 172, 174, 176, 183

Offset

1,1

Comments

The sequences A283769, A283770, A283771 partition the positive integers.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Formula

a(n+1) - a(n) is in {2,5,7} for every n.

Mathematica

r = GoldenRatio; z = 350; t = Table[Floor[n*r], {n, 1, z}]; u = Mod[t, 3];
Flatten[Position[u, 0]]  (* A283769 *)
Flatten[Position[u, 1]]  (* A283770 *)
Flatten[Position[u, 2]]  (* A283771 *)

Prog

(PARI) r = (1 + sqrt(5))/2;
for(n=1, 351, if(floor(n*r)%3==2, print1(n, ", "))) \\ Indranil Ghosh, Mar 19 2017
(Python)
import math
from sympy import sqrt
r = (1 + sqrt(5))/2
[n for n in range(1, 351) if int(math.floor(n*r))%3==2] # Indranil Ghosh, Mar 19 2017

Crossrefs

Cf. A000201, A001622, A283769, A283770.

Sequence in context: A256091 A229064 A024910 * A045236 A346368 A029664

Adjacent sequences: A283768 A283769 A283770 * A283772 A283773 A283774

Keyword

nonn,easy

Author

Clark Kimberling, Mar 18 2017

Status

approved