OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
From Michel Marcus, Apr 23 2020: (Start)
MAPLE
f:= proc(n) local L, i;
L:= convert(n, base, 2);
add(L[-i]*10^(i-1), i=1..nops(L));
end proc
map(f, [seq(i, i=1..100, 2)]); # Robert Israel, May 19 2024
MATHEMATICA
Table[FromDigits[Reverse[IntegerDigits[n, 2]]], {n, 1, 75, 2}] (* Amiram Eldar, Apr 27 2020 *)
PROG
(PARI) a(n) = fromdigits(Vecrev(binary(2*n-1))); \\ Michel Marcus, May 19 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Devansh Singh, Mar 20 2020
EXTENSIONS
New name, a(1)=1 and more terms from Michel Marcus, Apr 23 2020
STATUS
approved