A287775 Positions of 0 in A287772; complement of A050140 (conjectured and proved).
2, 3, 6, 7, 9, 10, 13, 14, 17, 18, 20, 21, 24, 25, 27, 28, 31, 32, 35, 36, 38, 39, 42, 43, 46, 47, 49, 50, 53, 54, 56, 57, 60, 61, 64, 65, 67, 68, 71, 72, 74, 75, 78, 79, 82, 83, 85, 86, 89, 90, 93, 94, 96, 97, 100, 101, 103, 104, 107, 108, 111, 112, 114
Offset: 1
Links
- Clark Kimberling, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *) w = StringJoin[Map[ToString, s]] w1 = StringReplace[w, {"0" -> "1", "1" -> "00"}] st = ToCharacterCode[w1] - 48 (* A287772 *) Flatten[Position[st, 0]] (* A287775 *) Flatten[Position[st, 1]] (* A050140 conjectured *)
-
Python
from math import isqrt def A287775(n): def f(x): return n+(r:=isqrt(x**2//5))+((isqrt(5*(r+1)**2)+r+1&-2)-r-1<=x) m, k = n, f(n) while m != k: m, k = k, f(k) return m # Chai Wah Wu, May 05 2025
Comments