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

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A023717 Numbers with no 3's in base-4 expansion. 22
0, 1, 2, 4, 5, 6, 8, 9, 10, 16, 17, 18, 20, 21, 22, 24, 25, 26, 32, 33, 34, 36, 37, 38, 40, 41, 42, 64, 65, 66, 68, 69, 70, 72, 73, 74, 80, 81, 82, 84, 85, 86, 88, 89, 90, 96, 97, 98, 100, 101, 102, 104, 105, 106, 128, 129, 130, 132, 133 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

A032925 is the intersection of this sequence and A023705; cf. A179888. - Reinhard Zumkeller, Jul 31 2010

Fixed point of the morphism: 0-> 0,1,2; 1-> 4,5,6; 2-> 8,9,10; ...; n-> 4n,4n+1,4n+2. - Philippe Deléham, Oct 22 2011

LINKS

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

FORMULA

a(n) = Sum_{i=0..m} d(i)*4^i, where Sum_{i=0..m} d(i)*3^i is the base-3 representation of n. - Clark Kimberling

a(3n) = 4*a(n); a(3n+1) = 4*a(n)+1; a(3n+2) = 4*a(n)+2; a(n) = 4*a(floor(n/3)) + n - 3*floor(n/3). - Benoit Cloitre, Apr 27 2003

a(n) = Sum_{k>=0} A030341(n,k)*4^k. - Philippe Deléham, Oct 22 2011

MATHEMATICA

Select[ Range[ 0, 140 ], (Count[ IntegerDigits[ #, 4 ], 3 ]==0)& ]

PROG

(PARI) a(n)=if(n<1, 0, if(n%3, a(n-1)+1, 4*a(n/3))) or a(n)=if(n<1, 0, 4*a(floor(n/3))+n-3*floor(n/3))

(Haskell)

a023717 n = a023717_list !! (n-1)

a023717_list = filter f [0..] where

   f x = x < 3 || (q < 3 && f x') where (x', q) = divMod x 4

-- Reinhard Zumkeller, Apr 18 2015

(Julia)

function a(n)

    m, r, b = n, 0, 1

    while m > 0

        m, q = divrem(m, 3)

        r += b * q

        b *= 4

    end

r end; [a(n) for n in 0:58] |> println # Peter Luschny, Jan 03 2021

CROSSREFS

Cf. A032925, A023705, A179888.

Sequence in context: A095775 A035063 A004128 * A324639 A171599 A328594

Adjacent sequences:  A023714 A023715 A023716 * A023718 A023719 A023720

KEYWORD

nonn,base,easy

AUTHOR

Olivier Gérard

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 December 8 21:59 EST 2021. Contains 349596 sequences. (Running on oeis4.)