OFFSET
0,3
COMMENTS
A048715(n) = m, if and only if a(n) = m and for all k > n a(k) > m.
MAPLE
b:= (n, i, j, k)->`if`(n=0, 0, k*irem(n, 2, 'q')+b(q, j, k, i+k)):
a:= n-> b(n, 1$3):
seq(a(n), n=0..100); # Alois P. Heinz, Jan 26 2022
PROG
(Python)
def Interpretation(n):
f0, f1, f2, r = 1, 1, 1, 0
while n > 0:
if n%2 == 1:
r = r+f0
n, f0, f1, f2 = n//2, f0+f2, f0, f1
return r
n = 0
while n <= 69:
print(Interpretation(n), end = ", ")
n += 1
(PARI) my(p=Mod('x, 'x^3-'x^2-1)); a(n) = vecsum(Vec(lift(subst(Pol(binary(n))*'x^2, 'x, p)))); \\ Kevin Ryde, Dec 26 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
A.H.M. Smeets, Dec 24 2021
STATUS
approved