login
A117564
Numbers with no 1's in base 3, 4 & 10 expansions.
1
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
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
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Apr 29 2006
EXTENSIONS
More terms from Emeric Deutsch, Oct 10 2006
STATUS
approved