|
%I #42 Jun 26 2018 14:37:04
%S 0,1,2,1,11,21,2,12,22,1,101,201,11,111,211,21,121,221,2,102,202,12,
%T 112,212,22,122,222,1,1001,2001,101,1101,2101,201,1201,2201,11,1011,
%U 2011,111,1111,2111,211,1211,2211,21,1021,2021,121,1121,2121,221,1221,2221,2
%N Numbers in base 3 reversed.
%H David F. Marrs, <a href="/A305877/b305877.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A004086(A007089(n)). - _Felix Fröhlich_, Jun 14 2018
%e 11 is 102 in base 3, and reversing it gives 201 = a(11).
%p a:= n-> parse(cat(convert(n, base, 3)[])):
%p seq(a(n), n=0..75); # _Alois P. Heinz_, Jun 17 2018
%t Table[FromDigits@ Reverse@ IntegerDigits[n, 3], {n, 0, 54}] (* _Giovanni Resta_, Jun 13 2018 *)
%o (PARI) a(n) = fromdigits(Vecrev(digits(n, 3)), 10); \\ _Michel Marcus_, Jun 13 2018
%Y Cf. A004086 (in base 10), A007089, A030102 (when converted in base 10).
%K nonn,base,easy
%O 0,3
%A _David F. Marrs_, Jun 13 2018
|
