%I #12 Nov 20 2021 20:46:34
%S 0,2,3,4,8,6,12,11,9,18,16,15,24,14,28,24,22,36,22,36,32,22,44,37,33,
%T 55,32,54,47,33,55,48,44,66,35,70,58,51,86,48,83,71,48,83,71,64,99,51,
%U 86,74,67,102,64,99,87,56,112,92,80,136,74,130,110,72,128,108
%N a(n) = n + (reversal of digits in the Zeckendorf representation of n).
%H Kevin Ryde, <a href="/A349239/b349239.txt">Table of n, a(n) for n = 0..10000</a>
%H Kevin Ryde, <a href="/A349238/a349238.gp.txt">PARI/GP Code</a>
%F a(n) = n + A349238(n).
%F a(n) = 2*n - A349240(n).
%o (PARI) See links.
%o (Python) # Using functions NumToFib and RevFibToNum from A349238.
%o n, a = 0, 0
%o print(a + a, end = ", ")
%o while n < 65:
%o n += 1
%o print(n + RevFibToNum(NumToFib(n)), end = ", ") # _A.H.M. Smeets_, Nov 14 2021
%Y Cf. A189920 (Zeckendorf digits), A349238 (reverse), A349240 (reverse and subtract), A348570 (Lychrels).
%Y Other bases: A055944 (binary), A056964 (decimal).
%K base,easy,nonn
%O 0,2
%A _Kevin Ryde_, Nov 11 2021
|