%I #9 Dec 24 2022 04:46:43
%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,21,23,25,27,29,31,
%T 32,34,35,37,38,41,43,45,47,49,51,52,53,54,56,57,58,59,61,65,67,71,72,
%U 73,74,75,76,78,79,81,83,85,87,89,91,92,94,95,97,98
%N Numbers in which all the digits are coprime to each other.
%t Join[Range[0,9],Select[Range[10,98],GCD@@IntegerDigits[#]==1 &]] (* _Stefano Spezia_, Dec 23 2022 *)
%o (Python)
%o from math import gcd
%o from functools import reduce
%o def ok(n):
%o d = list(map(int, str(n)))
%o return len(d) == 1 or reduce(gcd, d) == 1
%o print([k for k in range(100) if ok(k)]) # _Michael S. Branicky_, Dec 23 2022
%Y Cf. A069715.
%K base,easy,nonn
%O 1,3
%A _Amarnath Murthy_, Nov 28 2002
|