A240913 - OEIS

%I #8 Dec 17 2014 15:18:35

%S 23,25,27,29,32,34,35,37,38,43,45,47,49,52,53,54,56,57,58,59,65,67,72,

%T 73,74,75,76,78,79,83,85,87,89,92,94,95,97,98,203,205,207,209,223,225,

%U 227,229,230,232,233,234,235,236,237,238,239,243,245,247,249

%N Numbers m such that GCD of digits of m is 1 and no digit of m is 1.

%C A052423(a(n)) = 1.

%H Reinhard Zumkeller, <a href="/A240913/b240913.txt">Table of n, a(n) for n = 1..10000</a>

%t gcdQ[n_]:=Module[{idn=IntegerDigits[n]},!MemberQ[idn,1]&&GCD@@idn==1]; Select[ Range[300],gcdQ] (* _Harvey P. Dale_, Dec 17 2014 *)

%o (Haskell)

%o a240913 n = a240913_list !! (n-1)

%o a240913_list = filter (not . elem '1' . show) a069715_list

%o (PARI) is(n)=my(d=Set(digits(n))); setsearch(d,1)==0 && gcd(d)==1 \\ _Charles R Greathouse IV_, Nov 01 2014

%Y Subsequence of A069715.

%K nonn,base

%O 1,1

%A _Reinhard Zumkeller_, Apr 14 2014