login
A048787
Write n in base 3 then rotate left one place.
11
1, 2, 1, 4, 7, 2, 5, 8, 1, 4, 7, 10, 13, 16, 19, 22, 25, 2, 5, 8, 11, 14, 17, 20, 23, 26, 1, 4, 7, 10, 13, 16, 19, 22, 25, 28, 31, 34, 37, 40, 43, 46, 49, 52, 55, 58, 61, 64, 67, 70, 73, 76, 79, 2, 5, 8, 11, 14, 17, 20, 23, 26, 29, 32, 35, 38, 41, 44, 47, 50, 53, 56, 59, 62, 65, 68
OFFSET
1,2
COMMENTS
A={a(n)} is self-similar in the sense that the subsequence remaining after deleting the first occurrence of each integer is identical to the original sequence A (Kimberling's "upper-trimming" operation).
LINKS
EXAMPLE
a(33)=19 since 33 = 1020(base 3) -> 0201(base 3) = 19.
MATHEMATICA
Table[ FromDigits[ RotateLeft[ IntegerDigits[n, 3]], 3], {n, 1, 76}] (* Zerinvary Lajos, Mar 25 2007 *)
PROG
(Python)
def A048787(n):
x=A007089(n)
return int (x[1:]+x[0], 3) # Indranil Ghosh, Feb 08 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
John W. Layman and Anthony C. Hill (hilla(AT)hotmail.com)
STATUS
approved