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

Author

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

Keywords

• nonn
• base

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).

Examples

			a(33)=19 since 33 = 1020(base 3) -> 0201(base 3) = 19.
		

Links

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

Crossrefs

Cf. A255588-A255594, A255689-A255693.

Programs

Mathematica

Table[ FromDigits[ RotateLeft[ IntegerDigits[n, 3]], 3], {n, 1, 76}] (* Zerinvary Lajos, Mar 25 2007 *)

Python

def A048787(n):
    x=A007089(n)
    return int (x[1:]+x[0],3) # Indranil Ghosh, Feb 08 2017