A255691 - OEIS

%I #20 Mar 02 2023 12:13:25

%S 0,1,2,3,4,5,1,7,13,19,25,31,2,8,14,20,26,32,3,9,15,21,27,33,4,10,16,

%T 22,28,34,5,11,17,23,29,35,1,7,13,19,25,31,37,43,49,55,61,67,73,79,85,

%U 91,97,103,109,115,121,127,133,139,145,151,157,163,169,175

%N Convert n to base 6, move the most significant digit to the least significant one and convert back to base 10.

%C a(6*n) = 1.

%C Fixed points of the transform are listed in A048331.

%H Paolo P. Lava, <a href="/A255691/b255691.txt">Table of n, a(n) for n = 0..1000</a>

%e 16 in base 6 is 24: moving the most significant digit as the least significant one we have 42 that is 26 in base 10.

%p with(numtheory): P:=proc(q,h) local a,b,k,n; print(0);

%p for n from 1 to q do

%p a:=convert(n,base,h); b:=[]; for k from 1 to nops(a)-1 do b:=[op(b),a[k]]; od; a:=[a[nops(a)],op(b)];

%p a:=convert(a,base,h,10); b:=0; for k from nops(a) by -1 to 1 do b:=10*b+a[k]; od;

%p print(b); od; end: P(10^4,6);

%t roll[n_, b_] := Block[{w = IntegerDigits[n, b]}, Append[Rest@ w, First@ w]]; b = 6; FromDigits[#, b] & /@ (roll[#, b] & /@ Range[0, 65]) (* _Michael De Vlieger_, Mar 04 2015 *)

%t Table[FromDigits[RotateLeft[IntegerDigits[n,6]],6],{n,0,70}] (* _Harvey P. Dale_, Mar 02 2023 *)

%Y Cf. A006257, A030105, A255588-A255594, A255689-A255690, A255692-A255693.

%K nonn,easy,base

%O 0,3

%A _Paolo P. Lava_, Mar 02 2015