A117564 Numbers with no 1's in base 3, 4 & 10 expansions.

0, 2, 8, 56, 60, 62, 224, 234, 236, 240, 242, 546, 558, 560, 648, 650, 654, 672, 674, 702, 704, 40992, 40994, 43746, 43758, 43760, 43820, 43904, 43962, 43964, 43976, 43980, 43982, 44226, 44232, 44234, 44280, 44282, 44286, 45224, 45258, 45260, 45704

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

a:=proc(n) if member(1, convert(convert(n, base, 3), set) union convert(convert(n, base, 4), set) union convert(convert(n, base, 10), set))=false then n else fi end: seq(a(n), n=0..46000); # Emeric Deutsch, Oct 10 2006

Mathematica

n1Q[n_]:=DigitCount[n, 3, 1]==DigitCount[n, 4, 1]==DigitCount[n, 10, 1]==0; Select[Range[0, 50000], n1Q] (* Harvey P. Dale, Sep 30 2012 *)

Crossrefs

Cf. A005823, A023709, A117496.

Sequence in context: A087422 A081667 A117496 * A254222 A023179 A009298

Adjacent sequences: A117561 A117562 A117563 * A117565 A117566 A117567

Keyword

base,nonn

Author

Zak Seidov, Apr 29 2006

Extensions

More terms from Emeric Deutsch, Oct 10 2006

Status

approved