A187485 Positions of 0's in A123740; complement of A003623.

1, 2, 4, 5, 6, 7, 9, 10, 12, 13, 14, 15, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 30, 31, 33, 34, 35, 36, 38, 39, 40, 41, 43, 44, 46, 47, 48, 49, 51, 52, 53, 54, 56, 57, 59, 60, 61, 62, 64, 65, 67, 68, 69, 70, 72, 73, 74, 75, 77, 78, 80, 81, 82, 83, 85, 86, 88, 89, 90, 91, 93, 94, 95, 96, 98, 99, 101, 102, 103, 104, 106, 107, 108, 109, 111, 112, 114, 115, 116, 117, 119, 120

Offset: 1

Author

Clark Kimberling, Mar 16 2011

Keywords

• nonn

Comments

See A187950.

Crossrefs

Cf. A187950, A123740, A187485.

Programs

Mathematica

r=(1+5^(1/2))/2;
seqA=Table[Floor[(n+4)r]-Floor[n*r]-6, {n,1,220}] (* A123740 *)
Flatten[Position[seqA,0] ]   (* A187485 *)
Flatten[Position[seqA,1] ]   (* A003623 *)

Extensions

Name corrected by Michel Dekking, Jan 17 2017