|
%I #11 Jan 15 2024 18:53:28
%S 1,3,1,0,1,2,1,4,2,1,2,3,3,0,3,2,3,4,4,1,4,3,1,0,0,1,0,2,1,0,4,1,1,1,
%T 1,1,3,1,2,0,1,2,2,1,2,4,1,3,1,1,3,3,1,4,0,1,4,2,1,4,4,2,0,1,2,0,3,2,
%U 1,0,2,1,2,2,1,4,2,2,1,2,2,3,2,3,0,2,3,2,2,3
%N Write 2n-1 in base 5 and juxtapose.
%H Robert Israel, <a href="/A031253/b031253.txt">Table of n, a(n) for n = 1..10000</a>
%p map(op,[seq(ListTools:-Reverse(convert(2*n-1,base,5)),n=1..100)]); # _Robert Israel_, Sep 20 2019
%t Table[IntegerDigits[2n-1,5],{n,60}]//Flatten (* _Harvey P. Dale_, Jan 14 2024 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
