A048787 Write n in base 3 then rotate left one place.

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

Indranil Ghosh, Table of n, a(n) for n = 1..59049

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

Cf. A255588-A255594, A255689-A255693.

Sequence in context: A261763 A091320 A225468 * A030102 A072010 A255588

Adjacent sequences: A048784 A048785 A048786 * A048788 A048789 A048790

Keyword

nonn,base,changed

Author

John W. Layman and Anthony C. Hill (hilla(AT)hotmail.com)

Status

approved