login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A060140 Ordered set S defined by these rules: 0 and 1 are in S and if x is a nonzero number in S, then 3x and 9x+1 are in S. 8
0, 1, 3, 9, 10, 27, 28, 30, 81, 82, 84, 90, 91, 243, 244, 246, 252, 253, 270, 271, 273, 729, 730, 732, 738, 739, 756, 757, 759, 810, 811, 813, 819, 820, 2187, 2188, 2190, 2196, 2197, 2214, 2215, 2217, 2268, 2269, 2271, 2277, 2278, 2430, 2431, 2433, 2439 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
COMMENTS
The numbers of the form 9x+1 occupy the same positions in S that 1 occupies in the infinite Fibonacci word (A003849).
These are Fibternary numbers: numbers whose ternary representations consist only of zeros and ones and do not have two consecutive ones. The sequence of Fibternary numbers can be constructed by writing out the Zeckendorf representations of nonnegative integers and then evaluating the result in ternary. These numbers are similar to Fibbinary numbers A003714, Tribbinary numbers A060140, and Tribternary numbers A356823. The number of Fibternary numbers less than any power of three is a Fibonacci number. We can generate Fibternary numbers recursively: Start by adding 0 and 1 to the sequence. Then, if x is a number in the sequence add 3x and 9x+1 to the sequence. Every nonnegative integer can be written as the sum of four Fibternary numbers. Every number has a Fibternay multiple. - Tanya Khovanova and PRIMES STEP Senior group, Aug 30 2022
LINKS
Clark Kimberling, A Self-Generating Set and the Golden Mean, J. Integer Sequences, 3 (2000), Article 00.2.8.
Clark Kimberling, Fusion, Fission, and Factors, Fib. Q., 52 (2014), 195-202.
FORMULA
a(n) = A005836(A003714(n)+1). - Amiram Eldar, Oct 28 2023
MATHEMATICA
FromDigits[IntegerDigits[#, 2], 3] & /@ Select[Range[0, 165], BitAnd[#, 2*#] == 0 &] (* Amiram Eldar, Oct 28 2023 *)
PROG
(Python)
import heapq
from itertools import islice
def agen(): # generator of terms, using recursion in Comments
yield 0; x, h = None, [1]
while True:
x = heapq.heappop(h)
yield x
for t in [3*x, 9*x+1]: heapq.heappush(h, t)
print(list(islice(agen(), 51))) # Michael S. Branicky, Aug 30 2022
CROSSREFS
Sequence in context: A344295 A077560 A326003 * A340387 A025616 A305091
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 05 2001
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 19 03:30 EDT 2024. Contains 371782 sequences. (Running on oeis4.)