OFFSET
0,3
COMMENTS
a(4*n) = 1.
Fixed points of the transform are listed in A048329.
LINKS
Indranil Ghosh, Table of n, a(n) for n = 0..65536 (terms 0..1000 from Paolo P. Lava)
EXAMPLE
11 in base 4 is 23: moving the most significant digit as the least significant one we have 32 that is 14 in base 10.
MAPLE
with(numtheory): P:=proc(q, h) local a, b, k, n; print(0);
for n from 1 to q do
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)];
a:=convert(a, base, h, 10); b:=0; for k from nops(a) by -1 to 1 do b:=10*b+a[k]; od;
print(b); od; end: P(10^4, 4);
MATHEMATICA
roll[n_, b_] := Block[{w = IntegerDigits[n, b]}, Append[Rest@ w, First@ w]]; b = 4; FromDigits[#, b] & /@ (roll[#, b] & /@ Range[0, 70]) (* Michael De Vlieger, Mar 04 2015 *)
Table[FromDigits[RotateLeft[IntegerDigits[n, 4]], 4], {n, 0, 70}] (* Harvey P. Dale, Aug 07 2015 *)
PROG
(Python)
def A255689(n):
....x=A007090(n)
....return int (x[1:]+x[0], 4) # Indranil Ghosh, Feb 08 2017
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Paolo P. Lava, Mar 02 2015
STATUS
approved