A037344 Numbers whose base-2 and base-10 expansions have no digits in common.
2, 3, 4, 5, 6, 7, 8, 9, 22, 23, 24, 25, 26, 27, 28, 29, 32, 33, 34, 35, 36, 37, 38, 39, 42, 43, 44, 45, 46, 47, 48, 49, 52, 53, 54, 55, 56, 57, 58, 59, 62, 63, 64, 65, 66, 67, 68, 69, 72, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84, 85, 86, 87, 88, 89, 92, 93, 94, 95, 96, 97, 98, 99, 222
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Maple
isA037344 := proc(n) local dgs10,dgs2 ; dgs10 := convert(convert(n,base,10),set) ; dgs2 := convert(convert(n,base,2),set) ; if dgs10 intersect dgs2 = {} then true ; else false ; end if; end proc: A037344 := proc(n) option remember ; local a; if n = 1 then 2; else for a from procname(n-1)+1 do if isA037344(a) then return a; end if; end do; end if; end proc: seq(A037344(n),n=1..200) ; # R. J. Mathar, Aug 14 2025
-
Mathematica
Select[Range[100],Intersection[IntegerDigits[#,2],IntegerDigits[#,10]]=={}&] (* Vincenzo Librandi, Jun 06 2012 *)