login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A109681 "Sloping ternary numbers": write numbers in ternary under each other (right-justified), read diagonals in upward direction, convert to decimal. 10
0, 1, 5, 3, 4, 8, 6, 16, 11, 9, 10, 14, 12, 13, 17, 15, 25, 20, 18, 19, 23, 21, 22, 26, 51, 34, 29, 27, 28, 32, 30, 31, 35, 33, 43, 38, 36, 37, 41, 39, 40, 44, 42, 52, 47, 45, 46, 50, 48, 49, 53, 78, 61, 56, 54, 55, 59, 57, 58, 62, 60, 70, 65, 63, 64, 68, 66 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

All terms are distinct, but certain terms (see A109682) are missing.

For the terms 3^k-1 (all 2's in ternary), the diagonal is not started at the leading 2, but at the leading 1 of the following term. - Georg Fischer, Mar 13 2020

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Georg Fischer, Perl program

EXAMPLE

number diagonal decimal

    0      0     0

    1      1     1

    2     12     5

   10     10     3

   11     11     4

   12     22     8

   20     20     6

   21    121    16

   22    102    11

  100    100     9

  101    101    10

  102    112    14

  110    110    12

  11.    ...   ...

  1.

  .

MAPLE

t:= (n, i)-> (d-> `if`(i=0, d, t(m, i-1)))(irem(n, 3, 'm')):

b:= (n, i)-> `if`(3^i>n, 0, t(n, i) +3*b(n+1, i+1)):

a:= n-> b(n, 0):

seq(a(n), n=0..100);  # Alois P. Heinz, Mar 13 2020

PROG

(Haskell)

a109681 n = a109681_list !! n

a109681_list = map (foldr (\d v -> 3 * v + d) 0) $ f a030341_tabf where

   f vss = (g 0 vss) : f (tail vss)

   g k (ws:wss) = if k < length ws then ws !! k : g (k + 1) wss else []

-- Reinhard Zumkeller, Nov 19 2013

(Perl) Cf. link.

CROSSREFS

Cf. A109682 (complement), A109683 (ternary version), A109684.

Cf. A102370 (base 2), A325644 (base 4), A325645 (base 5), A325692 (base 6), A325693 (base 7), A325805 (base 8), A325829 (base 9), A103205 (base 10).

Cf. A030341.

Sequence in context: A193090 A004162 A319053 * A196406 A070367 A086308

Adjacent sequences:  A109678 A109679 A109680 * A109682 A109683 A109684

KEYWORD

nonn,nice,easy,base

AUTHOR

Philippe Deléham, Aug 08 2005

EXTENSIONS

Conjectured g.f. and recurrence removed by Georg Fischer, Mar 13 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 31 07:14 EDT 2020. Contains 334747 sequences. (Running on oeis4.)