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
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Apr 29 2006
EXTENSIONS
More terms from Emeric Deutsch, Oct 10 2006
STATUS
approved