A204095 Numbers whose base 10 digits are a subset of {0, 8}.

0, 8, 80, 88, 800, 808, 880, 888, 8000, 8008, 8080, 8088, 8800, 8808, 8880, 8888, 80000, 80008, 80080, 80088, 80800, 80808, 80880, 80888, 88000, 88008, 88080, 88088, 88800, 88808, 88880, 88888, 800000, 800008, 800080, 800088, 800800, 800808, 800880, 800888

Offset: 0

Author

Reinhard Zumkeller, Jan 10 2012

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A078247, A169965, A169966, A169967, A169964, A204093, A204094, A097256.

Programs

Haskell

a204095 n = a204095_list !! n
a204095_list = map (* 8) a007088_list

Maple

f:= proc(n) local L; L:= convert(n,base,2); add(8*L[i]*10^(i-1),i=1..nops(L)) end proc:
seq(f(n),n=0..100); # Robert Israel, Jul 28 2014

Mathematica

Table[8 FromDigits[IntegerDigits[n, 2]], {n, 0, 39}] (* Alonso del Arte, Jan 10 2012 *)

PARI

a(n)=8*subst(Pol(binary(n)), x, 10);
for(n=0, 20, print1(a(n), ", ")) \\ Felix Fröhlich, Jul 26 2014

Formula

a(n) = 8 * A007088(n).

Extensions

Definition corrected by M. F. Hasler, Feb 08 2020