A348853 Delete any least significant 0's from the Zeckendorf representation of n, leaving its "odd" part.
1, 1, 1, 4, 1, 6, 4, 1, 9, 6, 4, 12, 1, 14, 9, 6, 17, 4, 19, 12, 1, 22, 14, 9, 25, 6, 27, 17, 4, 30, 19, 12, 33, 1, 35, 22, 14, 38, 9, 40, 25, 6, 43, 27, 17, 46, 4, 48, 30, 19, 51, 12, 53, 33, 1, 56, 35, 22, 59, 14, 61, 38, 9, 64, 40, 25, 67, 6, 69, 43, 27, 72
Offset: 1
Examples
n = 81 = Zeckendorf 101001000. a(n) = 19 = Zeckendorf 101001.
Links
Crossrefs
Programs
-
PARI
my(phi=quadgen(5)); a(n) = my(q,r); while([q,r]=divrem(n+2,phi); r<1, n=q-1); n;
Comments