OFFSET
1,1
COMMENTS
Every even N>=6 is a sum of two terms of the sequence.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
A000695[n_]:= FromDigits[IntegerDigits[n, 2], 4];
Table[(3+(-1)^n)*A000695[Floor[(2*n-2-(-1)^n)/4]] +4+(-1)^n , {n, 202}]//DeleteDuplicates//Sort (* G. C. Greubel, May 22 2023 *)
PROG
(PARI) a147568(n) = 2*fromdigits(binary(n), 4) + 3;
lista(nn) = {my(v = vector(2*nn+2), ind = 0); for (n=0, nn, my(x = a147568(n)); v[ind++] = x; v[ind++] = 2*x - 1); vecsort(v, , 8); } \\ Michel Marcus, Dec 18 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Dec 01 2008
EXTENSIONS
More terms from Michel Marcus, Dec 18 2018
Missing term 685 added by G. C. Greubel, May 22 2023
STATUS
approved