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

Author

Zak Seidov, Apr 29 2006

Keywords

• base
• nonn

Links

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

Crossrefs

Cf. A005823, A023709, A117496.

Programs

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

Extensions

More terms from Emeric Deutsch, Oct 10 2006