|
%I #18 Apr 09 2020 23:51:25
%S 1,3,5,1,1,1,3,1,5,2,1,2,3,2,5,3,1,3,3,3,5,4,1,4,3,4,5,5,1,5,3,5,5,1,
%T 0,1,1,0,3,1,0,5,1,1,1,1,1,3,1,1,5,1,2,1,1,2,3,1,2,5,1,3,1,1,3,3,1,3,
%U 5,1,4,1,1,4,3,1,4,5,1,5,1,1,5,3,1,5,5,2,0,1
%N Write odd numbers in base 6 and juxtapose.
%H Antti Karttunen, <a href="/A030588/b030588.txt">Table of n, a(n) for n = 1..100000</a>
%e From _Antti Karttunen_, Dec 26 2018: (Start)
%e The first twelve odd numbers and their base-6 representations (A007092) are:
%e 1 1
%e 3 3
%e 5 5
%e 7 11
%e 9 13
%e 11 15
%e 13 21
%e 15 23
%e 17 25
%e 19 31
%e 21 33
%e 23 35
%e thus the sequence begins with terms 1, 3, 5, 1, 1, 1, 3, 1, 5, 2, 1, 2, 3, 2, 5, 3, 1, 3, 3, 3, 5.
%e (End)
%t Flatten[Table[IntegerDigits[2n - 1, 6], {n, 50}]] (* _Harvey P. Dale_, Jul 22 2012 *)
%o (PARI)
%o up_to = 100000;
%o A030588list(up_to) = { my(v=vector(up_to),ds=List([]),o=1,j=1); for(i=1,up_to,if(j>#ds,ds=digits(o,6);j=1;o+=2); v[i] = ds[j]; j++); (v); };
%o v030588 = A030588list(up_to);
%o A030588(n) = v030588[n]; \\ _Antti Karttunen_, Dec 24 2018
%o (Scala) (1 to 99 by 2).map(Integer.toString(_, 6).toCharArray).flatten // _Alonso del Arte_, Apr 02 2020
%Y Cf. A007092.
%Y Cf. A030589, A030590, A030591, A030592, A030593, A030594.
%Y Cf. A030595, A030601, A030602, A030603.
%Y Cf. A030596, A030597, A030598, A030599, A030600.
%K nonn,base,easy
%O 1,2
%A _Clark Kimberling_
|
