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,2

Links

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

Formula

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

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 *)

Prog

(Haskell)
a204095 n = a204095_list !! n
a204095_list = map (* 8) a007088_list
(PARI) a(n)=8*subst(Pol(binary(n)), x, 10);
for(n=0, 20, print1(a(n), ", ")) \\ Felix Fröhlich, Jul 26 2014

Crossrefs

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

Sequence in context: A077333 A216997 A062900 * A061477 A069543 A144410

Adjacent sequences: A204092 A204093 A204094 * A204096 A204097 A204098

Keyword

nonn,base

Author

Reinhard Zumkeller, Jan 10 2012

Extensions

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

Status

approved