The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A037384 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A037384

Numbers k such that every base-3 digit of k is a base-8 digit of k.
(history; published version)

#17 by Susanna Cuyler at Wed Aug 04 02:21:22 EDT 2021

STATUS

reviewed

approved

#16 by Joerg Arndt at Wed Aug 04 01:32:15 EDT 2021

STATUS

proposed

reviewed

#15 by Michel Marcus at Wed Aug 04 01:26:08 EDT 2021

STATUS

editing

proposed

#14 by Michel Marcus at Wed Aug 04 01:26:04 EDT 2021

CROSSREFS

Cf. A007089, A007094.

STATUS

proposed

editing

#13 by Jon E. Schoenfield at Wed Aug 04 01:22:30 EDT 2021

STATUS

editing

proposed

#12 by Jon E. Schoenfield at Wed Aug 04 01:22:29 EDT 2021

NAME

Numbers n k such that every base -3 digit of n k is a base -8 digit of nk.

STATUS

approved

editing

#11 by Charles R Greathouse IV at Sat Feb 11 15:08:08 EST 2017

STATUS

editing

approved

#10 by Charles R Greathouse IV at Sat Feb 11 15:08:04 EST 2017

PROG

(PARI) is(n)=#setminus(Set(digits(n, 3)), Set(digits(n, 8)))==0 \\ Charles R Greathouse IV, Feb 11 2017

STATUS

approved

editing

#9 by Reinhard Zumkeller at Thu May 30 17:40:23 EDT 2013

STATUS

editing

approved

#8 by Reinhard Zumkeller at Thu May 30 11:35:07 EDT 2013

PROG

(Haskell)

import Data.List ((\\), nub)

a037384 n = a037384_list !! (n-1)

a037384_list = filter f [1..] where

f x = null $ nub (ds 3 x) \\ nub (ds 8 x)

ds b x = if x > 0 then d : ds b x' else [] where (x', d) = divMod x b

-- Reinhard Zumkeller, May 30 2013

CROSSREFS

Cf. A037380, A037381, A037382, A037383, A037385, A037386.

STATUS

approved

editing